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FOREWORD 


BURROUGHS EXTENSIONS TO ANSI 68 COBOL 


Programming applications are written in the COBOL language as specified in this 
B 1800/B 1700 Systems COBOL Reference Manual. The source language herein de- 
scribed is the USA Standard COBOL, X3.23-1968, to which Burroughs extensions 
have been added 
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need not quote this entire section. 


xV 
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committee as to the accuracy and functioning of the programming system and 
language. Moreover, no responsibility is assumed by any contributor, or by 
the committee, in connection therewith. — 


Procedures have been established for the maintenance of COBOL. Inquiries con- 
cerning the procedure for proposing changes should be directed to the Executive 
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SECTION | 


INTRODUCTION 


This manual provides a complete description of COBOL (COMMON BUSINESS ORIENTED 
LANGUAGE) as implemented for use on the Burroughs B 1800/B 1700 system. This 
concept of COBOL embraces the adoption of the American National Standards 
Institute (ANSI) 1968. 


ADVANTAGES OF COBOL 


The long list of COBOL advantages is derived chiefly from its intrinsic quality 
of permitting the programmer to state the problem solution in English. The 
programming language reads much like ordinary English prose, and can provide 
automatic program and system documentation. When users adopt in-house standard 
ization of elements within files plus well-chosen data-names before attempt- 

ing to program a system, they obtain maximum documentational advantages of the 


language described herein. 
To a computer user, the Burroughs COBOL offers the following major advantages: 


a. Expeditious means of program implementation. 
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Accelerated programmer training and Simplified retraining requirements. 

c. Reduced conversion costs when changing from a computer of one manu- 
facturer to that of another. 

d. Significant ease of program modification. 
Standardized documentation. 

f. Documentation which facilitates non-technical management participation 
in data processing activities. 

¢. Efficient object program code. 

h. Segmentation capability which sets the maximum allowable program size 
well in excess of any practical requirement. 

i. Due to the incorporation of debugging language statements, a high de- 
gree of sophistication in program design is achieved. 


j. A comprehensive source program diagnostic capability. 


A program written in COBOL, called a source program, is accepted as input by 
the COBOL compiler. The compiler verifies that rules outlined in this 


manual are satisfied, and translates the source program language into an 


object program language capable of communicating with the computer and direct- 
ing it to operate on the desired data. Should source corrections become neces-— 
Sary, appropriate changes can be made and the program recompiled. Thus, the 


source file always reflects the object program being operationally executed. 


PROGRAM ORGANIZATION 


Every COBOL program must contain these four divisions in the following order: 


IDENTIFICATION 


ENVIRONMENT 
DATA 


PROCEDURE 


The IDENTIFICATION DIVISION identifies the program. In addition, the program- 
mer may include such optional pieces of information as the date compiled, and 
programmer's name for documentation purposes. This division is completely ma- 


chine-~independent and thus does not produce object code. 


The ENVIRONMENT DIVISION specifies the equipment being used. It contains 
computer descriptions and deals, to some extent, with the files the pro- 


gram will use. 


The DATA DIVISION contains file and record descriptions describing the data 
files that the object program is to manipulate or create, and the individual 
logical records which comprise these files. The characteristics or properties 
of the data are described in relation to a standard data format rather than 

an equipment~oriented format. Therefore, this division is to a large extent 
computer~independent. While compatibility among computers cannot be absolutely 
assured, careful planning in the data layout will permit the same data de- 


scriptions, with minor modification, to apply to more than one computer. 


The PROCEDURE DIVISION specifies the steps that the user wishes the computer 

to follow. These steps are expressed in terms of meaningful English words, 
statements, sentences, and paragraphs. This division of a COBOL program is 
often referred to as the "program" itself. In reality, it is only part of 

the total program, and is insufficient by itself to describe the entire pro- 
gram. This is true because repeated references must be made (either explicitly 
or implicitly) to information appearing in the other divisions. This division, 
more than any other, allows the user to express his/her thoughts in meaningful 
English. Concepts of verbs to denote actions, and sentences to describe pro- 
cedures, are basic, as is the use of conditional statements to provide alter- 


native paths of action. 
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A program written in COBOL, called a source program, is accepted as input by 
the COBOL compiler. The compiler verifies that rules outlined in this manual 
are satisfied, and translates the source program language into an object pro- 
gram language capable of communicating with the computer and directing it to 
operate on the desired data. Should source corrections become necessary, 
appropriate changes can be made and the program recompiled. Thus, the source 


file always reflects the object program being operationally executed. 
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SECTION 2 


LANGUAGE FORMATION 


GENERAL 


As stated in section l, COBOL is a language based on English, and is composed 
of words, statements, sentences, paragraphs, etc. The following paragraphs 
define the rules to be followed in the creation of this language. The use of 
the different constructs formed from the created words is covered in subsequent 


sections of this document. 


CHARACTER SET 


The COBOL character set for this system consists of the following 53 char- 


acters: 
Og ; period or decimal point 
A- Z ; semicolon 
blank or space _ quotation mark 
+ plus sign ( left parenthesis 
= minus sign or hyphen ) right parenthesis 
* asterisk > greater than symbol 
/ Slash (virgule) < less than symbol 
7 equal sign : colon 
$ currency sign @ "at" sign 
; comma 


Characters Used for Words 


The character set for words consists of the following 37 characters: 


o- 9 
A- 2 
= (hyphen) 


Punctuation Characters 
The following characters may be used for program punctuation: 


"at" sign space or blank 


quotation mark j period 


left parenthesis comma (see note below) 


right parenthesis ; semicolon 


NOTE 
Commas may be used between statements, 
at the programmer's discretion, for 
enhanced readability of the source 
program. Use of these characters 
implies that a following statement is 
to be included as a portion of an entire 


statement. 


Characters Used in Editing 


The COBOL compiler accepts the following characters in editing: 


currency sign plus 

asterisk (check protect) minus 

comma credit 

period debit 

space or blank insert zero suppress 


zero insert 


Characters Used in Formulas 
The COBOL compiler accepts the following characters in arithmetic expressions: 


addition exponentiation 
subtraction left parenthesis 


multiplication right parenthesis 


division 
Characters Used in Relations 
The COBOL compiler accepts the following characters in conditional relations: 


equal sign 


less than symbol 


greater than symbol 


iw) 
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DEFINITION OF WORDS 


A word is created from a combination of not more than 30 characters, selected 


from the following: 


A through Z 
O through 9 


+ a a * Gi 
es an exception to these 


A word is ended by a space, or by a period, comma, or semicolon. A word may 
not begin or end with a hyphen. (A literal const 

rules, as explained later.) 

Types of Words 

COBOL contains the following word types: 


a. Nouns. 
b. Verbs. 


Cc. Reserved words. 
Nouns 


Nouns are divided into ten special categories: 


e File-name @ Mnemonic~name 

@ Record-name e Index~name 

e Data-name e Literal 

e Condition-name e Figurative constant 
e Procedure~name * Speciai registers 


Since the noun is a word, its length may not exceed 30 characters (exception: 
literals may not exceed 160 characters). For purposes of readability, a noun 
may contain one or more hyphens. However, the hyphen may neither begin nor end 


the noun (this does not apply to literals). 


File-Name. A file-name is a name containing at least one alphabetic character 
assigned to designate a set of data items. The contents of a file are divided 
into logical records that in turn are made up of any consecutive set of data 


items. 


Record-Name. A record-name is a noun containing at least one alphabetic 
character assigned to identify a logical record. A record can be subdivided 


into several data items, each of which is distinguishable by a data-—name. 


Data-Name. A data-name is a noun assigned to identify elements within a 


record or work area and is used in COBOL to refer to an element of data, or 


to a defined data area containing data elements. Each data-name must contain 


at least one alphabetical character. 


Condition-Name. A condition-name is the name assigned to a specific value, 
set of values, or range of values, within the complete set of values that a 
data item may assume. The data item itself is called a "conditional variable." 
The condition-name must contain at least one alphabetic character and must 

be unique, or be able to be referenced uniquely through qualification. A con- 
ditional variable may be used as a qualifier for any of its condition-names. 
If references to a conditional variable require indexing, subscripting, or 
qualification, then references to any of its condition-names also require the 
same combination of indexing, subscripting, or qualification. A condition- 
name is used in conditions as an abbreviation for the relation condition; its 
value is TRUE if the associated condition variable is equal to one of the set 


values to which that condition-name is assigned. 


Procedure-Name. A procedure-name is either a paragraph-name or section-name, 

and is formulated according to noun rules. The exception is that a procedure- 
name may be composed entirely of numeric characters. Two procedure-names are 

identical only if they both consist of the same character strings. For ex- 


ample: procedure-names 007 and 7 are not equivalent. 


Mnemonic-Name. The use of mnemonic-names provides a means of relating certain 
hardware equipment names to problem-oriented names the programmer may wish to 
use. See the discussion of SPECIAL-NAMES in section 5. 


Index-Name. An index-name is a word with at least one alphabetic character that 
names an index associated with a specific table (refer to indexing in section 6). 
An index is a register, the contents of which represent the character position 
of the first character of an element of a table with respect to the beginning 
of the table. 


Literals. A literal is an item of data which contains a value identical to 
the characters being described. There are three classes of a literal: numeric, 


non-numeric, and undigit. 
Numeric Literal 


A numeric literal is defined as an item composed of characters chosen from 
the digits O through 9, the plus sign (+) or minus sign (-) and the decimal 


point. The rules for the formation of a numeric literal are: 


a. 


NOTES 
A comma must be substituted for the decimal 
point if the DECIMAL-POINT IS COMMA option 
is used (see SPECIAL-NAMES in the ENVIRON- 
MENT DIVISION). 


The implied USAGE of numeric literals is 
COMPUTATIONAL except when used with the 
verbs DISPLAY or STOP. 


b. There must be at least one digit in a numeric literal. 


c. The sign of a numeric literal must appear as the leftmost character. 


If no sign is present, the literal is defined as a positive value. 


d. The decimal point may appear anywhere within the literal except for 
the rightmost character of a numeric literal. A decimal point with- 
in a numeric literal is treated as an implied decimal point. Absence 
of a decimal point denotes an integer quantity. (An integer is a 


numeric literal which contains no decimal point.) 


e. A numeric literal used for arithmetic manipulations cannot exceed 
160 digits. The following are examples of numeric literals. 
13247 
.005 
+1.808 


-,0968 
7894, 54 


Non-Numeric Literal 


A non-numeric literal may be composed of any allowable character. The begin-~ 


ning and end of a non-numeric literal are each denoted by a quotation mark. Any 


character enclosed within quotation marks is part of the non-numeric literal. 


A non-numeric literal cannot itself exceed 160 characters. Examples of non- 


numeric literals are: 


Literal on Source Program Level Literal Stored by Compiler 


“ACTUAL SALES FIGURE" ACTUAL SALES FIGURE 
"1234, 567" -~1234, 567 
"nL IMITATIONS"'" "LIMITATIONS" 
"ANNUAL DUES" ANNUAL DUES 
trrerere ! 
ATHY BY A"'B 

NOTE 


Literals that are used for arithmetic com 
putation must be expressed as numeric lit~ 
erals and must not be enclosed in quotation 
marks as non-numeric literals. For example, 
"<7,7" and -7.7 are not equivalent. The 
compiler stores the non~numeric literal as 
-~7.7, whereas the numeric literal would be 
stored as 0077 if the PICTURE were S999V9 
DISPLAY with the assumed decimal point lo- 


cated between the two sevens. 


Figurative Constant. A figurative constant is a particular value that has 


been assigned a fixed data-~name and must never be enclosed in quotation marks 


except when the word, rather than the value, is desired. The figurative con- 


stant names and their meanings are: 


ZERO 
ZEROS 
ZEROES 


SPACE 
SPACES 


HIGH~ VALUE 
HIGH- VALUES 


LOW- VALUE 
LOW- VALUES 


Represents the value 0, or one or more of the 


character 0, depending on the context. 


Represents one or more spaces (blanks). 


Represents the highest internal coding sequence 

(i.e., 999) value. When HIGH-VALUES are moved to a 
Signed numeric computational fieid, the sign will 

be changed to a plus sign. 

Represents the lowest internal coding sequence (blanks) 
value. When LOW VALUES are moved to a signed numeric 
computational field, zeros will be moved into the field 


and the sign will be changed to a plus. 


QUOTE Represents one or more of the single character " (quotation 
auorTee mark), The word QUOTE or QUOTES does not have the same 
meaning in COBOL as the symbol ". For example, if "STANDARDS" 
appears as part of the COBOL source program, STANDARDS is 
stored in the object program. If, however, the full 
"STANDARDS" is desired in a DISPLAY statement, it can be 
achieved by writing QUOTE "STANDARDS" QUOTE, in which case 
the object program will print "STANDARDS". The same 
result can be obtained by writing """STANDARDS""" in the 
source program. Only the latter method can be used in 


MOVE statements and conditionals. 


ALL When followed by an integer numeric literal, a non-numeric 
literal, or a figurative constant, the word ALL represents a 
series of that literal. For example, if the COBOL statement 
is MOVE ALL literal TO ERROR-CODE, then the resultant ERROR- 
CODE would take on the following values: 


ALL literal Size of ERROR-CODE Resulting value of 
E RROR- CODE 

ALL "ABC" 7 characters ABCABCA 

ALL "3" or ALL 3 5 characters 33333 

ALL. “HI=LO" 12 characters HI-LOHI~LOHI 

ALL QUOTE 3 characters sill 

ALL SPACES 9 characters (nine spaces) 
NOTE 


The use of ALL with figurative constants, 

as illustrated in the last two instances, is 
redundant. MOVE ALL SPACES and MOVE SPACES 
would yield the same result. 


Special Registers. The B 1800/B 1700 COBOL compiler provides the following 
five special PROCEDURE DIVISION register names: 


a. TALLY. 
“wopayespene KG 


Tally 


The special register TALLY is automatically provided by the COBOL compiler and 
has a defined length of five COMPUTATIONAL digits. The primary use of TALLY is 
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in conjunction with the EXAMINE statement; however, TALLY may be used as 


temporary storage or an accumulative area during the interim when EXAMINE... 
TALLYING... is not being executed in a program. 


Verbs 


Another type of COBOL word is a verb. A verb in COBOL is a single word that 
denotes action, such as ADD, WRITE, MOVE, etc. All allowable verbs in COBOL, 
with the exception of the word IF, are truly English verbs. The usage of the 
COBOL verbs takes place primarily within the PROCEDURE DIVISION. 


Reserved Words 


The third type of COBOL word is a reserved word. Reserved words have a specific 
function in the COBOL language and cannot be used out of context, or for any 
purpose other than the one for which they were intended. Reserved words are 


for syntactical purposes and can be divided into three categories: 


a. Connectives. 
b. Optional words. 


ec. Key words. 


A complete list of reserved words in COBOL used by the compiler is included 


in appendix A. 


Connectives. Connectives are used to indicate the presence of a qualifier 

or to form compound conditional statements. The connectives OF and IN are 

used for qualification. The connectives AND, AND NOT, OR, or NOT are used 

as logical connectives in conditional statements. The comma is used as a 
series connective to separate two or more operands. 

Optional Words. Optional words are included in the COBOL ianguage to improve 
the readability of the statement formats. These optional words may be inclu- 
ded or omitted, as the programmer wishes. For example, IF A IS GREATER THAN 
B... is equivalent to IF A GREATER B..... Therefore, the inclusion or omission 


of the words IS and THAN does not influence the logic of the statement. 


Key Words. The third kind of reserved words is referred to as being a key 
word. The category of key words includes the verbs and required words needed 
to complete the meaning of statements and entries. The category also includes 
words that have a specific functional meaning. In the example shown in the 


previous paragraph, the words IF and GREATER are key words. 


LANGUAGE DESCRIPTION NOTATION 


COBOL reference manuals have almost universally adopted a particular form of 
notation. This manual uses that notation as described in the paragraphs that 
follow. 


Key Words 


All underlined upper case words are key words and are required when the 
functions of which they are a part are utilized. Their omission will cause 


error conditions at compilation time. An example of key words is as follows: 


IF data-name IS [NOT] STE 


ALPHABETIC 
The key words are IF, NOT, NUMERIC, and ALPHABETIC. 


Optional Words 


All upper case words not underlined are optional words and are included for 
readability only and may be included or excluded in the source program. In 


the example above, the optional word is IS. 


Generic Terms 


All lower case words represent generic terms which must be supplied in that 
format position by the programmer. Integer-1l and integer-2 are generic terms 


in the following example: 
FILE-LIMIT IS integer-1 THRU integer-2 


Braces 


When words or phrases are enclosed in braces { }, a choice of one of the 
entries must be made. In reference to the key words example above, either 
NUMERIC or ALPHABETIC must be included in the statement. 


Brackets 


Words and phrases enclosed in brackets [ ] represent optional portions of a 
statement. If the programmer wishes to include the optional feature, he may 
do so by including the entry shown between brackets. Otherwise, it may be 
omitted. In terms of the example above, the word enclosed in brackets is op~ 
tional. However, if the programmer wishes to distinguish between NUMERIC and 


ALPHABETIC, he must choose one of the words enclosed in braces. 


Ellipsis 


The presence of three consecutive periods (...) within any format indicates 
that the data immediately preceding the notation may be successively repeated, 


depending upon the requirements of problem solving. 


Period 


When a Single period is shown in a format, it must appear in the same position 


whenever the source program calls for the use of that particular statement. 


SECTION 3 


CODING FORM 


The format of the COBOL coding form (figure 3-1) has been defined by CODASYL, 
by ANSI, and by common usage. The B 1800/B 1700 COBOL compiler accepts this 
standard format. Should program interchange be a major consideration, the 


user is directed to the ANSI standard. 


The same coding form format is used for all four divisions of a COBOL program. 
These divisions must appear in proper order: IDENTIFICATION, ENVIRONMENT, 
DATA, and PROCEDURE. 


SEQUENCE FIELD (CARD COLUMNS 1-6) 


pi ee 


The sequence field may be used to sequence the source program. Normally a 
numeric sequence is used; however, the B 1800/B 1700 compiler allows any com- 
binations of characters. A warning message is given if there is a sequence 
error. The B 1800/B 1700 compiler provides for insertion or replacement of 
card images during compilation, controlled by the sequence field. (See section 
on "COBOL COMPILER CONTROL," section 11.) 


CONTINUATION INDICATOR (COLUMN 7) 


Column 7 has several functions as follows: 


dad. The letter L followed by a "library-name" entry causes all suc- 


ceeding source card data to be placed into the COBOL Library File 
during compilation. Termination of the action takes place when an 


L card is encountered followed by spaces. 
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Figure 3-1. COBOL Coding Form 


e. The presence of a hyphen (-) indicates that the last word or literal 
on the previous card was not complete, and is continued on this card 


beginning beyond margin A. 


Words and numeric literals may be split at any point by placing a hyphen in 
column 7 of the following card. Any rightmost blank spaces on a card are 
ignored as are the leftmost blank spaces on the continuation card. 


Non-numeric literals are split ina slightly different fashion. On the ini- 
tial card, starting from the quotation mark, all information through column 72 


is taken as part of the literal, and on 


literal ; 1 the next card a quote mark must be 


used to indicate the start of the second part of the literal. 


MARGIN A (COLUMNS 8 THRU 11) 


DIVISION, SECTION, and PARAGRAPH headers must begin in margin A. A division 
header consists of the division name (IDENTIFICATION, ENVIRONMENT, DATA, or 
PROCEDURE), followed by a space, then the word DIVISION followed by a period. 


A section header consists of the section~-name, followed by a space and then 


the word SECTION, followed by an optional priority number, followed by a period 


A paragraph header consists of the paragraph-name followed by a period. The 
first sentence of the paragraph may appear on the same line as the paragraph 
header. 

Within the IDENTIFICATION and ENVIRONMENT divisions, the section and paragraph 
headers are fixed and only the headers shown in this manual are permitted. 
Within the PROCEDURE DIVISION, the section and paragraph headers are defined 
by the user. 


MARGIN B (COLUMNS 12 THRU 72) 

All entries which are not DIVISION, SECTION, or PARAGRAPH headers should start 
in margin B. 

RIGHT MARGIN (COLUMN 72) 


The text of the program must appear between columns 8 and 72, inclusive. A 


word or statement may end in column 72. 


IDENTIFICATION (COLUMNS 73 THRU 80) 


The identification field may contain any information desired by the user. The 
field is ignored but is reproduced on the output listing by the compiler. This 


field normally contains the program name. 


qo 
ies) 


PUNCTUATION 


The following rules of punctuation apply to the writing of COBOL programs 
for the B 1800/B 1700. 


a. 


Ca. 


d. 


A sentence is terminated by a period followed by a space. A 
period may not appear within a sentence unless it is within a 
non~numeric literal or is a decimal point in a numeric literal or 
PICTURE string. 

Two or more names in a series may be separated by a space or by a 
comma. If used, commas can appear only where allowed. 


Semicolons (;) are used only for readability and are never required. 


A space must never be embedded in a name; hyphens should be used in- 


stead. (A hyphen may not start or terminate a name.) For example: 


NET~PAY 


SAMPLE CODING 


An extract sample from a source program, showing the continuation of both 


words and non-numeric literals, is illustrated in figure 3-2. 
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Figure 3-2. Example of Continuation of Words and Literals 


SECTION 4 


IDENTIFICATION DIVISION 


GENERAL 


The first part or division of the source program is the IDENTIFICATION DIVISION 
Its function is to identify the source program and the resultant output of its 
compilation. In additon, the date the program was written, the date the com- 
pilation was accomplished, plus other pertinent. information may be included 

in the IDENTIFICATION DIVISION. 


IDENTIFICATION DIVISION STRUCTURE 


The structure of this division is as follows: 


IDENTIFICATION DIVISION. 
[PROGRAM-ID. Any COBOL word.] 
[AUTHOR. Any entry.] 
fINSTALLATION. An 
[DATE-WRITTEN. An 
[DATE-COMPILED. £ 


(SECURITY. Any entry.] 


[REMARKS. Any entry. Continuation lines must 
be coded in Area B of the coding form. 


The following rules must be observed in the formation of the IDENTIFICATION 
DIVISION: 


a. The IDENTIFICATION DIVISION must begin with the reserved words 
IDENTIFICATION DIVISION followed by a period. 


b. All paragraph-names within this division must begin in Area A 


of the coding form. 


c. An entry following a paragraph-name cannot contain periods, with the 
exception that a period must be present to denote the end of that 
entry. 


When DATE-COMPILED is included y inserts the time _ 


and the date of compilation in the form 


of MM/DD/YY. 


With the exception of the DATE-COMPILED paragraph, the entire division is 


copied from the input source program by the compiler and listed on the output 
listing for documentation purposes only. 


CODING THE IDENTIFICATION DIVISION 


Figure 4-1 provides an example of how the IDENTIFICATION DIVISION may be 


coded in the source program. Note that continued lines must be indented to 
margin B, or beyond. 
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Figure 4-1. IDENTIFICATION DIVISION Coding 


SECTION 4 


ENVIRONMENT DIVISION 


GENERAL 


The ENVIRONMENT DIVISION is the second division of a COBOL source program. 

Its function is to specify the computer being used for the program compilation, 
to specify the computer to be used for object program execution, to associate 
files with the computer hardware devices, and to provide the compiler with 
pertinent information about disk storage files defined within the program. 
Furthermore, this division is also used to specify input-output areas to be 


utilized for each file declared in a program. 


ENVIRONMENT DIVISION ORGANIZATION 


The ENVIRONMENT DIVISION consists of two sections. The CONFIGURATION SECTION 
contains the overall specifications of the computer. The INPUT-OUTPUT SECTION 
deals with files to be used in the object program. 


ENVIRONMENT DIVISION STRUCTURE 


The structure of this division is as follows: 
aes 


ENVIRONMENT DIVISION. 
[ [CONFIGURATION SECTION. ] 


[SOURCE-COMPUTER .. .]| 
[OBJECT-COMPUTER .. .] 
[SPECIAL-NAMES . . .] 
[INPUT-OUTPUT SECTION. | 
[FILE-CONTROL .. .] 
[I-O-CONTROL . . .]] 


The following rules must be observed in the formulation of the ENVIRONMENT 
DIVISION: 


a. The ENVIRONMENT DIVISION must begin with the reserved words 
ENVIRONMENT DIVISION followed by a period. 
b. All entries other than the ENVIRONMENT DIVISION source line are op- 


tional but, when used, they must begin in Area A of the coding form. 


-- 1 


| CONFIGURATION SECTION | 


CONFIGURATION SECTION 


The CONFIGURATION SECTION contains information concerning the system to be 

used for program compilation (SOURCE~COMPUTER), the system to be used for 
program execution (OBJECT-COMPUTER), and the special-names paragraph, which 
relates hardware names used by the B 1800/B 1700 COBOL compiler to the mnemonic- 
names in the source program, 


g72 


| SOURCE-COMPUTER 


SOURCE-COMPUTER 


The function of this paragraph is to allow documentation of the configuration 
used to perform the COBOL compilation. 


The format of this paragraph has the following two options: 


Option I: 
SOURCE-COMPUTER. COPY library~name 


| REPLACING word-1 BY word-2 


[ word-3 BY word-4 | | . 


Option 2: 


SOURCE-COMPUTER. | any entry 


4X 


This paragraph is for documentation only. 


OBJECT-COMPUTER 


OBJECT-COMPUTER 


The function of this paragraph is to allow a description of the configuration 
used for the object program. 


The format of this paragraph has the following two options: 


Option 1: 


OBJECT-COMPUTER. COPY library-name 


|: REPLACING word-l BY word-2 


[ word-3 BY word-4 | | 


Option 2: 


{ any entry | . 


[, SEGMENT-LIMIT IS priority number ] 


Priority numbers used in the SEGMENT-LIMIT clause must be positive integers 
with a value from 1 to 49. The SEGMENT-LIMIT clause specifies the limit of 
the fixed segment for sections numbered from 0 to 49. See SEGMENT CLASSIFICA- 
TION, PROGRAM SEGMENTS, and PRIORITY NUMBERS. 


e used in the same OBJECT 


OBJECT-COMPUTER 
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SPECIAL-NAMES 


The function of this paragraph is to allow the programmer to assign a signifi- 
cant character for all currency signs, to declare decimal points as being 
commas and to provide a means of relating implementor hardware~names to user 


specified mnemonic~names. 
The format of this paragraph has the following two options: 


Option 1: 


SPECIAL“~NAMES. COPY library~name 


| REPLACING word-1l BY word-2 


[ word-3 BY word-4 | ee ie 


Option 2: 


SPEC IAL-~NAMES. [CURRENCY SIGN IS literal] 


E implementor-name IS mnemonic-name | 


[, DECIMAL-POINT IS COMMA] 


This paragraph is required if all decimal points are to be interchanged with 
commas and/or if all currency signs are to be represented by a character other 
than a dollar sign ($). 


This literal is limited to a single character and must not be one of the 


following: 


a. Numeric digits O through 9. 

b. Alphabetic characters A, B, C, D, J, K, P, R, S, V, X, Z, or blank. 
et, ee aes 

The clause DECIMAL-~POINT IS COMMA signifies that the functions of comma and 


period are to be exchanged in the PICTURE character-string and in numeric 
literals. 


c. Special characters * + —- , 


If implementor-name is specified, it must be one of the allowable B 1800/ 


B 1700 COBOL hardware-names which may be specified in FILE-CONTROL paragraph 
For example: 


PUNCH IS CARD~PUNCH~EBCDIC 


SPECIAL-NAMES 


The mnemonic-name device can be directly referred to in the ASSIGN clause. 


The SPECIAL-NAMES paragraph statement ends with a period as a delimiter. 
Periods between clauses are not allowed. 


| INPUT-OUTPUT SECTION 


INPUT-OUTPUT SECTION 


The INPUT-OUTPUT section contains information concerning files to be used 


by the object program, the manner of recording used or to be used, and the 


presence of any multiple~file tape or disk. 


FILE-CONTROL 


The function of this paragraph is to name each file, to identify the file 
medium, and to specify a particular hardware assignment. The paragraph also 


specifies alternative input-output areas. 


The format of this paragraph has the following three options: 
Option 1: 


Llibrary~name 


gonaad word-2 
a | BY | data-nane-2 


data-name~1 literal-1 


se word~-4 
; aes BY data~name-4 2] 
cay literal-2 


Option 2: 


| F ILE-~ CONTROL. | 


SELECT [ OPTIONAL ] file-name-~1l1 ASSIGN TO hardware~name-1l 


[F OR MULTIPLE REEL | 
L J 


NO AREA 
, RESERVE eek | ALTERNATE ean 
e = END 
[> FILE-LIMIT IS | freee 1 {ee Titeral-2 
FILE-LIMITS: ARE data-name-1 THROUGH _ 
ana ee data-name-2 
[ oo { HRY ieee | | | 
Ll? ldata-name-m THROUGH data-name-n eee 
RANDOM 
| ACCESS MODE IS | SeUEN tt | 
[,ACTUAL KEY IS data-name-3] 
[, PROCESSING MODE IS SEQUENTIAL ] SELECT) 26.4% 


FILE-CONTROL 


Option 3: 


FILE-CONTROL. TAPES 


_ integer-3 TAPE 
SELECT sort-file-name ASSIGN TO aceeey ‘SORT | EE 


Option 1 may be used when the system's library contains the library-name entry. 
See COPY verb, section 7. 


The files used in a program must be the subject of only one SELECT statement. 
If it is to be OPENed INPUT-OUTPUT or I-O, it must be present in the MCP 
Disk Directory. 


The OPTIONAL clause is applicable to input files only. Its specification 
is required for input files that are not necessarily present each time the 


object program is executed. 


The ASSIGN clause must be used in order for the MCP to associate the file 


with a hardware peripheral device. The allowable entries for hardware-name-1l 


are: 
CARD96 PUNCH 
CASSETTE QUEUE 
DISK (or DISC) READER 
DISK-DFC1 READER~SORTER 
DISK~DFC2 REMOTE 
DISK-DPC1 TAPE (7 or 9 channel MCP to assign) 
DISK-DPC2 TAPE-MTC1 
DISK-HPT TAPE-MTC2 
DISKPACK TAPE~MTC3 
TAPE-MTC4 
PRINTER TAPE-MTC5 
PT- PUNCH TAPE-7 (7 channel only) 
PT- READER TAPE-9 (9 channel only) 
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| FILE-CONTROL | 


With the exception of the ASSIGN clause which must immediately follow the 
SELECT clause, the rest of the clauses in this paragraph may appear in any 
order. 


The MULTIPLE REEL clause is for documentation only. This function is performed 
by the MCP. 


The RESERVE clause allows a variation of the number of input or output physical 
record buffers to be supplied by the MCP at the time the file is opened. Each 
alternate area reserved requires additional memory to be utilized, and will be 
the size of a physical record as defined in the FD statement of the DATA 
DIVISION for that specific file. Up to 63 alternate areas may be specified. 


The RESERVE clause has an additional function when used for QUEUE files. In _ 
this case, it is used to specify the number of messages to be contained in 

memory. If more messages are allowed in the QUEUE than are allowed in memory, 
the remaining messages will be placed on disk. (See the discussion of QUEUES — 
in Section 10). Te 


FILE-CONTROL 


No alternate areas are reserved when the NO option is specified or if the 


entire option is omitted. 


The MCP will keep track of record data being passed to or from the buffer and 


the record work area. 


The programmer can use the READ or WRITE statements without regard to the 


buffering action taking place. 


The FILE-LIMIT clause is invalid if specified for a sort file description (SD) 
entry. The FILE-LIMIT clause for input and output files associated with the 
SORT verb will not be effective during execution of the SORT unless an input/ 


output procedure is declared. 
The FILE-LIMIT clause specifies the following: 


a. For SEQUENTIAL access, logical records are obtained from, or placed 
sequentially in, the disk storage file by the implicit progression 
from segment to segment. The AT END imperative statement of a READ 
statement is executed when the logical end of the last segment of the 
file is reached and an attempt is made to READ another record. The 
INVALID KEY clause of a WRITE statement is executed when the end of 
the last segment is reached and an attempt is made to WRITE another 


record. The END option specifies that the compiler is to determine 
the upper limit of an existing file. No ACTUAL KEY entry is neces- 


sary for the SEQUENTIAL mode. 


b. For RANDOM access, logical records are obtained from, or placed 
randomly in, the disk storage file within the specified FILE- LIMIT, 
The contents of ACTUAL KEY not within the specified limit will cause 
the execution of the INVALID KEY branch in the READ and the WRITE 
statements. The ACTUAL KEY entry must be specified. 


In the FILE-LIMIT clause, each pair of operands associated with the key word 
THRU represents a logical segment of a file. The logical beginning of a 
disk storage file is considered to be that address represented by the first 
operand of the FILE-LIMIT clause; the logical end is considered to be that 
address as specified by the last operand of the FILE-LIMIT clause. 


In a FILE-LIMIT series, SEQUENTIAL records are accessed in the order in which 


they are specified. For example: 
FILE-LIMITS 1 THRU 5, 10 THRU 12. 3 THRU 7 


This example will result in the sequential access of records l, 2, 3, 4, 
10, il, 12. 3. 4, 5, 6 and 7 in that order. 


ol 
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FILE-CONTROL 


The data-names used with the FILE-LIMIT clause must be defined with. a PICTURE 
OF 9(8) COMPUTATIONAL. 


For the ACCESS MODE SEQUENTIAL clause, the disk storage records are obtained 
or placed sequentially. That is, the next logical record is made available 
from the file on a READ statement execution, or a specific logical record is 
placed into the file on a WRITE statement execution. The ACCESS MODE 
SEQUENTIAL clause is assumed if ACCESS MODE RANDOM is not specified. 


Values of the ACTUAL KEY data-name-3 are controlled by the programmer, includ-- 
ing any execution of the USE FOR KEY CONVERSION statement. The value may 


range from 1 to n, where n equals the number of records in the file or as 
reflected by the FILE-LIMITS clause. The ACTUAL KEY signifies the relative 
position of a record within the file and is equated to a data-name at any 
level which is defined with a PICTURE OF 9(8) COMPUTATIONAL. ACTUAL KEY is 
not used for ACCESS MODE SEQUENTIAL files. 


be defined at the o1 ‘legen 
! “ACTUAL KEY is omitted, message 
ength will be taken Fran the message -le eth being written, 


The PROCESSING MODE IS SEQUENTIAL clause is for documentation only. 


All integers must be of positive values. 


FILE-CONTROL 


The sort-file-name in Option 3 is the SD level file-name to be used by the 


SORT or MERGE verbs. Option 3 may also be used to specify the number of tapes 
to be used as work files for TAPE SORT. 


If data-name-4 is specified, it must be defined as an integer. If this state- 
ment specifies tape work files and integer-3/data-name-4 is omitted, the 
default number of work tapes, three (3), will be used. Three is also the 


minimum allowable number of work tapes. The maximum number of work tapes 


which may be specified is (8). 
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I-O-CONTROL 


The function of this paragraph is to specify memory area, to be shared by 
different files during object program execution and the point in time that a 


rerun procedure is to be established. 
The construct of this paragraph is: 


Option Il: 


COPY i y me 


i 


=O= 
fh REPLACING word-1 BY word-2 
[ 
ty 


word-3 BY word- 4 | ia 


Option 2: 


| I-O-CONTROL. | 


E SAME [RECORD] AREA FOR file-name-2 [file-name-3] | 


, MULTIPLE FILE | DISKPACK disk-pack-id 
1 


[ TAPE multi-file-id!} 
| CONTAINS file-name-5 [POSITION integer-2] | 
, file-name-6 [POSITION integer-3] | 5: eng fF 


The I-O-CONTROL paragraph may be omitted from the program if the paragraph 


does not contain any of the clause entries. 


The SAME AREA clause in this COBOL compiler is used to assign the same address 
to the record work areas of all files named in the clause. This area will be 
in the overlayable data area of the program when data segmentation is used. 

Due to the Virtual Memory concept employed in the design of the system, a given 
file's file information block (FIB), buffer, and ALTERNATE AREAS will not exist 


5-15 


|-O-CONTROL 


in memory until an OPEN statement in the PROCEDURE DIVISION has been executed. 
At OPEN time, the MCP allocates sufficient memory outside of the limits of 

the Base and Limit registers to contain these areas. The record work area 

of the file is called into the overlayable data area of the program whenever 
it is referenced by the program. When the file is programmatically CLOSEd, the 
memory being used to contain the file's FIB, buffer and ALTERNATE AREAS will be 
returned to the MCP. 


COBOL restricts the OPENing of files defined as residing in the SAME AREA 

of memory to one file at a time. This system ignores that logic and the re- 

sult saves memory over the conventional intent by not using memory to contain 
FIB record area, buffers, or ALTERNATE AREAS until a file is actually OPENed 

by the program, 


When the RECORD option of the SAME AREA clause is used, only the record area 
is shared and the associated alternate areas for each file remain independent. 
In this case, any number of the files sharing the same record area may be 


OPEN at one time, but only one of the records can be processed at a time. 


The use of the RECORD option may decrease the physical size of a program as 
well as increase the speed of the object program. To illustrate this point, 
consider file maintenance. If the SAME RECORD AREA is assigned to both the 
old and new files, a MOVE will be eliminated which transfers each record from 
the input area to the output area. The records do not have to be defined in 
detail for both files. Definition of a record within one file and the simple 


inclusion of an O01 level entry for the other file will suffice. 


Because these are record areas, in fact, in the same memory location, one set 
of data~names is sufficient for all processing requirements, without requiring 
qualification. 


The MULTIPLE FILE clause specifies that disk files reside on a removable disk 
cartridge or disk pack, or two or more tape files are resident on one magnetic 
tape. All files resident on a multi-file (that are required in a program) 
must be represented in the source program by a SELECT statement and a FD entry 
for each file. 


For tape, the file-name entries do not have to be defined in the program in 
the sequence in which the files appear on the multi-file tape. However, the 
MCP will read the label of the next file on tape, check the label against the 
file requested, and, if that file is not the one requested, the MCP wiil re- 


wind the multi-file tare and start searching for it from the beginning of tape. 


my 
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|-O-CONTROL 


When the MULTIPLE FILE clause is used to identify a file on a removable disk 
cartridge or disk pack, the MCP will use the specified disk-pack-id to locate 
that file. File-name entries are FD file-names in the program indicated as 


residing on the specified disk cartridge or disk pack. 


The 'multi-file-id'' is the name contained in the physical tape label of a 
magnetic tape containing multi-files, where file-name entries are FD file- 


names in the program indicated as residing on the multi-file tape. 


All files named in the MULTIPLE FILE TAPE clause have an implied SAME AREA 


clause. 

Multi-~files, or any file contained within the multi-file may be OPTIONAL. 
The POSITION clause is for documentation only. 

CODING THE ENVIRONMENT DIVISION 


An example of ENVIRONMENT DIVISION coding is provided in figure 5-1. 
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Figure S-1. ENVIRONMENT DIVISION Coding 


GENERAL 


SECTION 6 


DATA DIVISION 


The third part of a COBOL source program is the DATA DIVISION which describes 


all data that the object program is to accept as input, and to manipulate, 


create, 


gories: 


ae 


oe 
we 


or produce as output. The data to be processed falls into three cate- 


Data which is contained in files and which enters or leaves the in- 


ternal memory of the computer from a specified area or areas. 


Data which is developed internally and placed into intermediate stor- 


age, or placed into a specific format for output purposes. 


Constants which are defined by the programmer. 


DATA DIVISION ORGANIZATION 


The DATA DIVISION is subdivided into two sections: 


a, 


The FILE SECTION defines the contents of data files which are to 
be created or used by an external medium. Each file is defined 
by a file description, followed by a record description or a series 


of file-related record descriptions. 


The WORKING-STORAGE SECTION describes records, constants, and non- 
contiguous data items which are not part of an external data field, 


but which are developed and processed internally. 


DATA DIVISION STRUCTURE 


DATA DIVISION STRUCTURE 


The general structure of the DATA DIVISION is as follows: 


DATA DIVISION. 
FILE SECTION, 
| weaeomanetaat: 


[record-description-entry] ...]... 
( sort-description-entry 


- 
ee SECTION. 


‘aac abel saie aie | 


record-description-entry 


Each section of the DATA DIVISION is optional and may be omitted from the 
source program if not needed. However, if a section is included, it must be 
incorporated in order of appearance shown above. These sections are described 


on the following pages. 


The file description defines information pertaining to the physical aspects 
of a file. Such items as number of records ina block, identification of 
records @n the file, the presence or absence of labels, etc., are included 


to describe the entire file. 


The record description presents logical characteristics of each record. This 
includes the layout of items within each record type, size of various items 
in the record, indication of the range of values for each item, picture 

of the contents of each item, whether the item is signed or not, and the 
usage of an item within the program. AI1l of these parameters may be utilized 


to define logical characteristics of each record. 


The WORKING-STORAGE SECTION is comprised of internal record descriptions and 
individual unrelated items, which are described as record entries, or parts 


of record entries, 


In summary, the DATA DIVISION contains information pertaining to the data to 
be used by the program: the files used, the records contained in each file, 
and items comprising each record; in addition, working storage and constants 


may be specified, 


FILE AND RECORD CONCEPTS 


FILE AND RECORD CONCEPTS 


The approach taken in defining file information is to distinguish between the 
physical aspects of the file and the conceptual characteristics of the data 


contained within the file. 
Physica! Aspects of a File 


The physical aspects of a file describe the data as it appears on the input 


or output media and include such features as the following: 


4 


a. The mode in which the data file is recorded on the external medium. 


b. The grouping of logical records within the physical limitations of 
the file medium. 


c. The means by which the file can be identified. 
Conceptual Characteristics of a File 


The conceptual characteristics of a file explicitly define each logical entity 


within the file itself. In a COBOL program, the input or output statements 


It is important to distinguish between a physical record and a logical record. 
For COBOL a logical record is a group of related information, uniquely identi-~ 


fiable, that is treated as a unit. 


A physical record is a physicai unit of information whose size and recording 
mode are convenient to a particular computer for the storage of data on an 
input or output device. The size of a physical record is hardware~dependent 


and bears no direct relationship to the size of the file of information con- 
tained on a device. 


A logical record may be contained within a single physical unit; or several 
logical records may be contained within a single physical unit. There are 
several source-language methods available for describing the relationship 
of logical records and physical units. Once the relationship has been 
established, the control of the accessibility of logical records as related 
to the physical unit is the responsibility of the operating system. In this 
manual, reference to records means to logical records, unless the term 
"physical record" is specifically used. 


The concept of a logical record is not restricted to files but may be applied 
to all sections of the DATA DIVISION. 


FILE AND RECORD CONCEPTS 


Record Concepts 


The record description consists of a set of DATA DESCRIPTION entries which 
describe the characteristics of a particular record, Each DATA DESCRIPTION 
entry consists of a level~number followed by a data-~name, followed by a 


series of independent clauses, as required. 


Example: 
O01 ITEM-ONE PICTURE IS X(6). 
The maximum size of a record description (i.e., the sum of the maximum sizes 


of all the items subordinate to an 01 level item) is restricted to 65,535 
bits (8K bytes). 


LEVEL NUMBERS CONCEPT 


LEVEL NUMBERS CONCEPT 


The concept of hierarchy is inherent in the structure of a logical record. 
This concept arises from the need to specify subdivisions of a record for 
the purpose of data reference. Once a subdivision has been specified, it 
may be further subdivided to permit more detailed data referral. In other 
words, level numbers define the interrelationship of the items comprising 
the record and allow the programmer to access individual items or groups 
of items. 


The most basic (least generic) subdivisions of a record, that is, those not 
further subdivided, are called elementary items; consequently, a record is 
said to consist of a sequence of elementary items, or the record itself may 


be an elementary item. 


In order to refer to a set of elementary items, the elementary items may 
be combined into groups. Each group consists of a named sequence of one or 
more elementary items. Groups, in turn, may be combined into groups of two 


or more groups, etc. Thus, an elementary item may belong to more than one 


In COBOL, the item relationship is specified by the use of a series of level 
numbers. These numbers must not contain more than two characters, and may 


range from 1 thru 49. (Special level numbers of 66, 77, and 88 are discussed 


later. ) 


Each record of a file begins with the level number 1 (which may also be 
written as 01). This number is reserved for the record name only, as the 
most generic grouping. Less inclusive groupings are given higher numbers 
(not necessarily successive) up to a limit of 49. Figure 6-1 illustrates a 


form of level construction. 


The smallest elements of the description are called elementary items. In 
figure 6-1, EMP-NO, EMP-COST-CENTER, EMP-LAST-NAME, EMP-FIRST-INITIAL, and 
EMP-M-INITIAL are all elementary items, as well as EMP-H-MONTH, EMP-H-DAY, 
EMP-H-YEAR, EMP-GROSS, EMP-HOSPITAL, EMP-LIFE, EMP-FICAT, EMP-STATE-TAX, 
EMP-WITHHOLDING, EMP-LMONTH and EMP-LDAY. None of these items are further 


subdivided; therefore, they are called elementary items. 


Each elementary item belongs to one or more groups. In the example, EMP- 
HOSPITAL is a part of the EMP-INSURANCE group. EMP-INSURANCE, in turn, is 
part of the EMP-DEDUCTIONS group, which is part of the EMP-PAY-DATA group. 
Therefore, a group is defined as being composed of all group and elementary 


items described under it, until a level number equal to or less than the 
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LEVEL NUMBERS CONCEPT 


group level number is encountered. In the example, EMP-PAY-DATA group in- 
cludes all items to, but not including, EMP-LAST-REVIEW (which has an equal 
level number). Likewise, EMP-DEDUCTIONS group includes all subsequent items 
up to, but not including, EMP-LAST-REVIEW (which has a level number less than 
EMP-DEDUCTIONS). 


Level numbers used in defining successively smaller groupings, working toward 
an elementary item, are given in larger values. Although it is not necessary 
that they be consistent or consecutive, a level number must not exceed 49. A 
level number immediately following the last elementary item of a group must 
have a value of less than or equal to the level number for that group and equal 
to the level number of Some previous group. An exception is that level number 
1 (or 01) is reserved exclusively for identifying the beginning of a record 


description. 


In the above example, the rule prohibits EMP-ANNUAL-SALARY from having a level 
number of 2 (or 02). Likewise, the entry name EMP-LAST-REVIEW could not have 
had a level number of 10 or 06 because, in the example, no previous group ap- 
pears with either of these levels. As a completely separate group, it could 
only have a level number the same as that of the major groups previously shown. 
Figure 6-2 illustrates another way to visualize the concept of level numbers 
by using the same example. 
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Figure 6-2, Concept of Level Numbers 
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QUALIFICATION 


Every user-defined name explicitly referenced in a COBOL source program must 
be uniquely referenced either because no other name has the identical spelling 
and hyphenation or because it is unique within the context of a REDEFINES 
clause, or because the name exists within a hierarchy of names such that 
reference to the name can be made unique by mentioning one or more of the 
higher-level names in the hierarchy. These higher-level names are called 
qualifiers and this process that specifies uniqueness is called qualification. 
Identical user-defined names may appear in a source program; however, unique- 
ness must then be established through qualification for each user-defined name 
explicitly referenced, except in the case of redefinition. All available 


qualifiers need not be specified so long as uniqueness is established. 


The hierarchy of qualification is as follows: names associated with a level 
indicator are the most significant; then names associated with level-number 
O01, then those names associated with level-number 02, ... , 49. <A section- 
name is the highest (and the only) qualifier available for a paragraph-name. 
Thus, the most significant name in the hierarchy must be unique and cannot 
be qualified. Subscripted or indexed data-names and conditional variables, 
as well as paragraph-names and data-names, may be made unique by qualifica- 
tion. The name of a conditional variable can be used as a qualifier for any 


of its condition-names, 


Regardless of the available qualification, no name can be both a data-name 


and a procedure-name. 


Qualification is performed by following a data-name or a paragraph-name by 
one or more phrases composed of a qualifier preceded by IN or OF. IN and 
OF are logically equivalent. 


The format for qualification consists of two options which are shown below: 


Option 1: 


data-name-2 Axi ae file-nane | 
OF 


leona 
condition-name 


file-name 


QUALIFICATION | 


Option 2 


paragraph~name sect ion-~name 


The rules for qualification are as follows: 


a. Each qualifier must be of a successively higher level and within 


the same hierarchy as the name it qualifies. 


b. The same name must not appear at two levels ina hierarchy so that 


the name would appear to qualify itself. 


c. If a data-name or a condition-name is assigned to more than one 
data item in a source program, the data-name or condition-name 
must be qualified each time it is referred to in the PROCEDURE 
DIVISION, ENVIRONMENT DIVISION, and DATA DIVISION (except REDEFINES 


where, by definition, qualification is unnecessary). 


d. <A paragraph-name must not be duplicated within a section. Whena 
paragraph-name is qualified by a section-name, the word SECTION must 
not appear. A paragraph-name need not be qualified when referenced 


within its own section. 


e. A data-name cannot be subscripted or indexed when it is being used 


as a qualifier. 


f. A name can be qualified, even though it does not need qualification; 
if there is more than one combination of qualifiers that ensures 


uniqueness, then any such set can be used. 


In the example below, all item descriptions (except the data-name PREFIX) 
are unique. In order to refer to either PREFIX item, qualification must be 
used. Otherwise, if reference is made to PREFIX only, the compiler would 
not know which of the two is desired. Therefore, in order to move the 
contents of one PREFIX into the other PREFIX, the PROCEDURE DIVISION must 


be coded with one of the following sentences: 


MOVE PREFIX IN ITEM-NO TO PREFIX OF CODE-NO, 

MOVE PREFIX OF ITEM-NO TO PREFIX IN MASTER-FILE, 

MOVE PREFIX OF TRANSACTION-TAPE TO PREFIX IN CODE-NO, 
MOVE PREFIX IN TRANSACTION-TAPE TO PREFIX IN MASTER-FILE. 


a om B 


QUALIFICATION 


Example: 
O1 TRANSACTION-TAPE , . . O01 MASTER-FILE 
03 ITEM-NO.. . 03 CODE-NO . 
OS PREFIX... O5 PREFIX ., 
05S CODE... O05 SUFFIX . 
03 QUANTITY... 03 DESCRIPTION . 


6-10 


Frequently, the need arises to describe data that appears in a table (i.e., 


TABLES 


array, list, etc.). For example, a master record might contain 16 total 
fields, and these might be described as TOTAL-ONE, TOTAL-TWO, etc. However, 
this requires 16 data-names, and each total must be individually referenced 
in the PROCEDURE DIVISION. A more powerful way to describe the field is: 


TOTAL . . . OCCURS 16 TIMES. 


Elements of a table are referenced thru the use of subscripting or indexing. 


An element of a table is represented by an occurrence number. 


The elements of a table may contain subordinate fields. For example: 


02 TOTAL... OCCURS 16 TIMES. 
03 TOTAL-A . . . PICTURE 9(6). 
03 TOTAL-B . . . PICTURE 9(6) OCCURS 3 TIMES, 


Also, as shown above, OCCURS may be nested to describe tables of more than 
one dimension by applying an OCCURS clause to a subordinate name. Standard 
COBOL limits tabies to three-dimensions, 

In the WORKING-STORAGE SECTION, initial values of elements within tables may 
be specified as follows. The table may be described as a record by a set of 
contiguous data description entries, each of which specifies the VALUE of an 
element, or part of an element, of the table. In defining the record and its 
elements, any data description clause (USAGE, PICTURE, etc.) may be used to 
complete the definition, where required. This form is required when the 
elements of the table require separate handling due to synchronization, USAGE, 
etc. The hierarchical structure of the table is then shown by use of the 
REDEFINES entry and its associated subordinate entries. The subordinate 
entries following the REDEFINES entry, which are repeated due to the OCCURS 
clause, must not contain VALUE clauses. 


Example: 


01 wW-S-TOTS. 
03 FILLER PC X(24) VALUE IS ZEROS. 
03 CARDIMAGE-VALUES PC X(80). 

01 R-TOTS REDEFINES W-S-TOTS., 
03 TOT PC 9(4) OCCURS 26 TIMES. 


SUBSCRIPTING 


SUBSCRIPTING 


Subscripts can be used only when reference is made to an individual element 
within a table of like elements that have not been assigned individual data- 
names. (Refer to the OCCURS clause. ) 


The subscript can be represented by a numeric literal that is an integer, 
or by a datasname. The data~name must be a numeric elementary item that rep- 


resents an integer. The data~name may be qualified. 


The subscript may be signed and if signed must be positive. However, the sub- 
script cannot be computational-3 or J-signed. The lowest permissible subscript 
value is 1. This value points to the first element of the table. The next 
sequential elements of the table are pointed to by subscripts whose values are 
2, 3, --- - The highest permissible subscript value, in any particular case, 
is the maximum number of occurrences of the item as specified in the OCCURS 
clause, Violation of this rule will cause the object program to terminate 

with an INVALID SUBSCRIPT message. 


The subscript, or a set of subscripts, identifying the table element is en- 
closed in parentheses. The table element data-name appended with a subscript 
is called a subscripted data~name or an identifier. When more than one sub- 
script appears within a pair of parentheses, the subscripts may be separated 
by commas and are written in the order of successively less inclusive dimen- 


sions of the data organization. 


The general construct for subscripting is: 


data~name 
condition~name 


(subscript [ ,subscript ] soe | 

For example, in figure 6-3, to reference the first volume, EN-VOLUME (1) is 
written. If data~name N contains the number of the volume desired, EN- VOLUME 
(N) is written. If the data item PAGE-NO contains the number of the page 
desired, then EN-HEADING (N, PAGE-NO) would reference the 12-character 

page heading. 


Where qualification and subscripting are both required, the qualification is 
shown first, followed by the subscripting. For example, EN-PAGE OF 
ENCYCLOPEDIA (N, PAGE-NO). EN-PAGE (N, 3) OF ENCYCLOPEDIA is incorrect. 

For further restrictions, refer to the discussion of identifiers in this 
section, 
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Figure 6-3. Coding of Multi~Dimensioned Table 
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INDEXING 


References can be made to individual elements within a table of like elements 
by specifying indexing for that reference. An index is assigned to that level 
of the table by using the INDEXED BY clause in the definition of a table. A 
name given in the INDEXED BY clause is known as an index-name and is used to 
refer to the assigned index. The value of an index corresponds to the occur- 
rence number of an element in the associated table. An index must be initial- 
ized before it is used as a table reference. An index can be given an initial 


value by either a SET or a PERFORM statement. 


Direct indexing is specified by using an index~name in the form of a subscript. 
Relative indexing is specified when an index~name is followed by the operator 
+ or —, followed by an unsigned integer numeric literal all delimited by the 
balanced pair of separators left parenthesis and right parenthesis following 
the table element data~name. The occurrence number resulting from relative 
indexing is determined by incrementing (where the operator + is used) or 
decrementing (where the operator - is used), by the value of the literal, the 
occurrence number represented by the value of the index. When more than one 
index-name is required, they are written in the order of successively less-~ 


inclusive dimensions of the data organization. 


At the time of execution of a statement which refers to an indexed table ele- 
ment, the value contained in the index referenced by the index~name associated 
with the table element must neither correspond to a value less than one (1) 
nor to a value greater than the highest permissible occurrence number of an 
element of the associated table. This restriction also applies to the value 


resultant from relative indexing. 


The general construct for indexing is: 


+ + 
index~name | | Literaicg index nane|| | Litera 


data-name | ( 1s) 


condition-name 


literal-3 


literal-l 


ie) 
I 

re 

Py 


IDENTIFIER 


IDENTIFIER 


An identifier is a term used to reflect that a data-name, if not unique in 
a program, must be followed by a syntactically correct combination of quali- 


fiers, subscripts, or indices necessary to ensure uniqueness. 


The construct for identifiers has two options which are as follows: 


Option 1: 
data-name-1 [| | data-name-2 | Sek 
[( subscript-1 [s subscript-n]...)] 
Option 2: 


data-name-1l | { data-name-2 | 


Fei | aa I | index-name-2 {7} reread] 


literal-1l literal-3 


Restrictions on qualification, subscripting, and indexing are as follows: 
a. The commas as shown in both options are optional. 
b. The data-name-2 must not itself be subscripted nor indexed. 
c. Indexing is not permitted where subscripting is not permitted. 


SEARCH, and PERFORM 


a 
Pa cv als Ais 40L WIL 


Qu 


An index may be modified only by the SET 


> 


statements. Data items described by the USAGE IS INDEX clause 
permit storage of the values of index-names as data without con- 


version. Such data items are called index data items. 


e. Where more than one occurrence number is required for a data~name 
reference, it is illegal to use a data~name for one occurrence num- 
ber and an index-name for another. However, literals and index- 


names may be mixed. 


FILE SECTION 
This section contains descriptions of the files used by the object program. 
File Description 


The function of the File Description sentence is to furnish information to the 
compiler concerning the physical structure, identification, and record names 


pertaining to a given file. 
The construct of this sentence contains four options: 


Option 1: 


FD file-name-1 COPY library-name 


word-2 ! 
| emtacne (eae BY [aats-nane-2| 


data-name-1 literal-l 


word-4 
word-3 | 
BY data-name-4 sea 
ie toes [satan | 


Option 2: 


FD file-name-1 


: BLOCK CONTAINS [integer-3 TO] integer-4 secu | 


: RECORD CONTAINS [integer-5 TO] integer-6 CHARACTERS | 


[VA or [iD 1g |lliteral-1/] literal-2 [/ [1iteral-3]| 
> | VALUE IDENTIFICATION 


data-name-1 
[SAVE-FACTOR IS integer-7] 


RECORD IS OMITTED | in 
: LABEL | RECORDS oe | STANDARD |data-name-2 iF data-name-3...] 


| Aeon Is 


[ DATA | RECORDS a data-name-4 [, data-name-5...] : | 


on 
1 

pens 

D 


Option 3: 


SD sort-file-name COPY library-name 


data-name-2 
data-name-1 literal-1 


| nspsactne 


word-l [Satan | 


word-3 word-4 
{a ta-n ‘a data-name-4 
nee literal-2 ij] 


Ss 


Option 4; 


SD sort-file—-name 


RECORD IS 


BECORDS ARE data-name-1 [data-name-2| | 


or a Sort File Description and must precede the file statement. Both entries 
should commence under Area A of the coding form. Only one period is allowed 


in the entry and it must follow the last clause specified. 


Options 1 and 3 can be used when the Systems library contains the library- 


name entry; otherwise, Option 2 and/or Option 4 must be used. 


In many cases, the clauses within the File Description or Sort File Description 
sentence are optional. Their order of appearance is immaterial. Each clause 
is discussed in detail. 


Figure 6-4 illustrates the use of the File Description sentence followed by 
data record entries. 


NOTE 
The two 01 levels implicitly redefine 
the record area. The DATA RECORDS clause 
is treated by the compiler as being for 
documentation purposes only and does not 


cause an explicit redefinition of the area. 
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Figure 674. Coding of FD and DATA RECORDS 


The function of this clause is to specify the size of a physical record 
(block). 


BLOCK 


The construct of this clause is: 


BLOCK CONTAINS [integer-1 TO] integer-2 eee as 


Integer-1 and integer-2 must be positive integer values. 
This clause is required if the block contains more than one logical record. 


When only integer-2 is used, it will represent logically blocked, fixed-length, 
records if its value is other than 1. When the integer-1 TO integer-2 option 
is used, it will represent the minimum to maximum size of the physical record 
and indicates the presence of blocked variable-length records. Integer-1 is 


for documentation purposes only. 


The maximum value of the integer used in this clause is shown in table 6-1 


+h we 
Ll 


ers to the number of characters in a block. 


The word CHARACTERS is an optional word in the BLOCK clause. Whenever the 


key word RECORDS is not present, the integers represent characters. 


For object program efficiency, the use of blocked records is recommended. The 
physicai size of the bliock should be as large as possible depending on memory 
availability. 


Blocks of records are read into the input buffer area by the MCP, and the 
delivery of each record to the record work~area of the program (required by 
an explicit READ statement) is completed. 


Blocking or deblocking of records is automatically performed by the MCP. 
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Table 6-1. Maximum Value of Integers 


I/O MEDIUM MAXIMUM BLOCK SIZE - CHARACTERS 


READER 80/96 
PUNCH 80/96 


TAPE Limited only by the amount 
memory available. 


DISK Limited only by the amount 
memory available. 


PRINTER One print line. 


PT-READER Limited only by the amount 
memory available. 


PT- PUNCH Limited only by the amount 
memory available. 


Every explicit WRITE statement causes compiler-generated object code to notify 
the MCP that a write is to be done. The MCP accumulates the number of logical 
records necessary to create a specified block size and writes the block. When 
a file is CLOSEd, the records left in the output buffer area, if not a full 
block, will be written as a short block by the MCP before the file is physi- 
cally CLOSEd, The transfer of records to the buffer is automatic, and is a 
function of the MCP. 


The user must specify the actual size of variable-length records in the first 
four bytes of each record. This four-character indicator is counted in the 


physical size of each record. 


The BLOCK clause is not applicable to the READER, PT-PUNCH, PT-READER, or 
READER~SORTER peripherals. 


This clause may be omitted for unblocked files. 


When a file is assigned to disk, the user should be aware that the physical 
disk segment size is 180 bytes and that all READ and WRITE statements are, in 
effect, in multiples of this size. The hardware must write (or read) in seg- 
ments; therefore, it is preferred that the block size used be a multiple of 
180 bytes. 


DATA RECORDS 


DATA RECORDS 


The function of this clause is to document the names of the logical record(s) 


actually contained within the file being described. 


The construct of this clause is: 


DATA RECORD IS 


RECORDS ARE data-name-1 ([,data-name-2]... 
This statement is only for documentation purposes. The compiler will obtain 


this information from 01 level record description entries. 


The presence of more than one data-name indicates that the file contains 
more than one type of data record. These records may be of differing sizes, 


different formats, etc. The order in which they are listed is not significant. 
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FILE CONTAINS 
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LABEL 


The function of this clause is to specify the presence or absence of file 


label information as the first and last record of an input or output file. 


The construct for this clause is: 


QMITTED 
{RECORD IS STANDARD 


pape? | RECORDS ARE data-name-1 [,data-name-2] af 


STANDARD specifies that labels exist for the file or device to which the file 
is assigned. It also specifies that output labels conform to the standards 


as implemented. 


STANDARD, when specified for disk files, indicates that the 20-character 
contents of the VALUE OF ID clause will be inserted into the disk file header. 
Should VALUE OF ID be omitted, the first 10 characters of the FD or SD file- 
name will be inserted into the second 10 characters of the disk file header. 
When the LABEL clause is not specified, LABEL RECORD STANDARD is assumed. 


Data-name~1, data-name-2,..., are names of label records and must not appear 
in the DATA RECORDS clause, or be the subject of a record description asso- 
ciated with the file. 


OMITTED specifies that physical labels do not exist for the specific input 
file to which the file is ASSIGNed. During object program execution, the 
operator will be queried by the MCP as to which unit possesses the input data. 


The operator must reply with "mix~index" UL -unit~mnemonic'" control message. 


OMITTED specifies that labels are not to be created for the specific output 
file ASSIGNed. 


The B 1800/B 1700 standard label for tape is in a format compatible with the 


proposed USASI standard label for information exchange. 


RECORD 


RECORD 


The function of this clause is to specify minimum and/or maximum variable 


record lengths. 


The construct of this clause is: 
RECORD CONTAINS finteger-1 TO] integer-2 CHARACTERS 


Integer-l and integer-2 must be unsigned non-zero integer values. 


If integer-1l and integer-2 are specified, the variable-length record technique 


is utilized. 


If only integer-2 is specified the compiler will treat the clause as being 
documentation only. The record size will be determined by the structure of 
the largest record description. If the largest record description is not 


equal to the value of integer-2, a warning message will be produced. 


If integer-1 and integer-2 are specified, they refer to the minimum and maxi- 
mum size of the variable-length records to be processed. At least one record 
description must reflect the maximum size record length as specified in the 
RECORD CONTAINS clause. 


The user must specify the actual size of variable-length records in the first 
four bytes of each record. The four-character variable-size indicator is 


counted in the physical size of each record. 


y y i 
Variable-length files are also limited to sequential access, and may only be 
OPENed INPUT or OUTPUT. 


RECORDING MODE 


RECORDING MODE 


The function of this clause is to specify the recording mode for peripheral 


devices, where a choice can be made, 
The construct for this clause is: 
STANDARD 


RECORDING MODE IS NON-STANDARD 
ASCII 


RECORDING MODE IS STANDARD is assumed if this clause is absent from the FD 
sentence. The MCP automatically checks the parity of input magnetic tapes 
and will read the tape in the intelligent mode. For this reason, this clause 


is not required for input tapes. 


The MCP will automatically assign RECORDING MODE IS STANDARD on 9~-channel mag- 
netic tape drives if a SELECT clause indicates TAPE, even though the program- 
mer has designated the unit as being NON-STANDARD. 


Binary files are read or written, with no possibility of translation. 


The records of a file which is specified RECORDING MODE ASCII are USAGE 
ASCII by default. 


The recording modes for the peripheral devices are provided in table 6-2. 


Table 6-2. Recording Modes for Peripheral Devices 


DEVICE STANDARD NON-STANDARD 


TAPE-7 Odd Parity Even Parity 
TAPE-9 Odd Parity - 
DISK Memory Image - 


READER EBCDIC Binary 
PUNCH EBCDIC or BCD Binary 
PT-READER BCL Binary 
PT-PUNCH BCL Binary 
PRINTER BCL - 


The function of this clause is to define the identification value assigned, or 


VALUE OF ID 


to be assigned, to a file of records and to declare the length of time that a 


file is to be saved. 


The construct of this clause is: 


(7 | OF { SRENEIEICATION | 7 ie literal-2 [ACsterareal 
— (iD 


data-~name-1 


[ SAVE-FACTOR IS integer-1] 


This clause may be used when the label records are present in the file being 
described. If this clause is not present, the compiler will take the VALUE OF 
ID from the first 10 characters of the file-name (FD or SD) and place that ID 
in the ID entry of the label where the value of the main directory entry would 
normally be found. The file-name must be uniquely constructed so that the MCP 
will be able to recognize the files. 


Example: 
FD SCHEDULE-DISK1 Would create a VALUE OF ID as 
FD SCHEDULE-DISK2 SCHEDULE-D for both files and 
cause a duplicate file action 
by the MCP. 
To make them unique: 
FD DISKOUTPAY Would create a VALUE OF ID as 
FD DISKOUTTAX DISKOUTPAY and one of DISKOUTTAX, 


thus causing no MCP confusion 


during object program execution. 


The multiple file tape name will be taken from either the MULTIPLE FILE clause 
in the I-O-CONTROL paragraph; the value of literal-2 when literal-2 is followed 
by a slash and literal-3; or the second 10 characters of data~name-1l. The file 
name of a multiple file tape file will be taken from the contents of literal-2 
when only one literal is specified; from literal-3 if both literal-2 and 
literal-3 are specified; or from the last 10 characters of data-~name-1l. The 
file name for a single file tape will be taken from the contents of literal-2, 


or from the second 10 characters of data~name-l. 


If literals are used, and contain non-blank characters, then the first charac- 


ter in the literal must be a non-blank character. 


All non-disk files,are limited to a maximum of two names. 


VALUE OF ID 


The pack~id name of a disk file will be taken either from the multi-file clause 
in the I-O-CONTROL paragraph, or from the value of literal-1l. The main di- 
rectory (family) name will be taken from literal-2 (in the case of systems 
disk or if I-O-CONTROL is used to specify user disk), from literal-2 (in the 
case of user disk without I-O-CONTROL or if literal-2 is followed by a slash 
(/) ). The sub-directory entry (file-name) will be taken from the value of 
literal-3. Literal-3 cannot be used when literal-1 and literal-2 are both 
blank. When using the literal option, if three literals are used, they repre- 
sent pack~id, main directory (family), and sub-directory (file-name) , respec~ 
tively. If two literals are used they represent main directory and sub- 
directory. If only one literal is used it represents the main directory entry. 


PACK~ID MAIN DIRECTORY SUB~DIRECTORY 
[ literal-1 / ] literal-2 [ / [ litera1-3 ] ] 
can be specified in can come from FD or forces literal-1l / and 
I-O-CONTROL and forces SD name literal-2 to be speci- 
literal-2 to be speci- fied 
fied 
Examples: 


VALUE OF ID IS "USERI1''/"*PAYROLL" /"DEDUCTS". 
VALUE OF ID IS "WORKPACK1"/"TRANS"/. 

VALUE OF ID IS "PAYROLL" /""MASTER" . 

VALUE OF ID IS "ITEMS". 

VALUE OF ID IS "MSTTAPE" SAVE-FACTOR IS 031. 


The data~name-1l option should only be used if file names are to be built under 
program control, as this option overrides file equates and I-O-CONTROL name as~- 
Signments for that file. When data-~name-l1 is used it must be defined as being 


30 characters in length and alphabetic or alphanumeric. 


When the data~name-1l option is used for disk files, the disk-pack-id must be 
included in the description. The compiler will use the first 10 characters of 
the data-name as the disk~pack-id each time the file is opened. If the file is 


On or is to be created on systems disk, the first 10 characters must be blank. 


O01 DATA-NAME-1, Overrides I-O-CONTROL or use of 
FD or SD name for that file. 

03 PACK-ID PC X(10). Pack-id name for user disk must be 
blank for system disk or non-disk 
files. 

03 MAIN-DIRECTORY PC X(10). Cannot be blank at open time. 

03 SUB-DIRECTORY PC X(10). A non-blank entry here requires a 


non-blank entry for MAIN-DIRECTORY. 


Examples: 


O01 FILE-IDENTIFICATION. 
03 PACK-ID 
03 MAIN-DIRECTORY 
03 SUB-DIRECTORY 


01 DATA-NAME-1. 
03 PACK-ID 
03 MAIN-DIRECTORY 


nn arwT = NTNANDAMA 
Vo SUB DLNECTORY 


01 FILE-ID. 
03 PACK-ID 
03 MAIN-DIRECTORY 
03 SUB-DIRECTORY 


O1 VA-NAME. 
03 PACK-ID 
03 MAIN-DIRECTORY 


03 SUB-DIREC 


O01 SOME-DATA-NAME. 
03 BACKUP-PACK-NAME 
03 WHICH-SYSTEM 
03 FOR-WHAT-DAY 


NOTE 


VALUE OF ID 


"USERLBBEKE" . 


"PAYROLL‘BB" 


"DEDUCTS Bb". 


"WORKPACK1" . 
"TRANS 666)" . 


SPACES. 


SPACES. 


" PAYROLLKB‘" . 
"MASTER} $b". 


SPACES. 


" [TEMS66Bb" . 


SPACES. 


SPACES. 
SPACES. 
SPACES. 


Names must be moved in prior to OPEN. 


VALUE OF ID 


When SAVE-FACTOR is specified for output magnetic tape files integer-1l repre- 
sents the number of days the file is to be saved before it can be purged and 
used for other purposes by the system; integer-1 is limited to an unsigned 


integer not to exceed three digits in length with values from OOI1 to 999. 


SAVE-FACTOR, when declared for a disk file, is for documentational purposes, 
due to the fact that files residing on disk should only be purged by mutual 
consent within an EDP organization and can only be performed as a physical 


action by the systems operator, or the automatic RMOV option of MCP. 


If SAVE-FACTOR is not specified, tapes are automatically assigned a SAVE-FACTOR 


of zero days. 


6-30 


VALUE OF Q-MAX-MESSAGES 


VALUE OF Q-MAX-MESSAGES 


The function of this clause is to specify the maximum number of messages 
allowed in a QUEUE. 


The construct of this clause is: 


VA 
OF Q-MAX-MESSAGES Is integer-8 
VALUE 


Integer-8 is limited to three digits in length with values ranging from 001 


through 255 inclusive. 


If this clause is omitted, the value of Q-MAX-MESSAGES is set to 2 by the MCP 
when the file is OPENed. 


RECORD DESCRIPTION 


RECORD DESCRIPTION 


This portion of a COBOL source program follows the file description entries 
and serves to completely identify each data element within a record of a 
given file. 


The construct of these entries contain the following four options: 


Option 1: 


O1 data-name-1; COPY library-name 


word-2 

REPLACING (oe aaaess | BY data-name-3 
literal-1l 

word-4 
oe | BY data-name-5 ee : 
data-name-4 literal-2 
Option 2: 
feyeieeenee [peuLeE [;REDEFINES data-name-2 | 
data-name-l1 


34 PIC IS (allowable PICTURE characters) 
PICTURE 
DISPLAY 
;[ USAGE IS ] 


[integer-1 TO]integer-2 TIMES [DEPENDING ON data-name-3 | 


| RECORD DESCRIPTION | 


ASCENDING 
| { Sescenaine | KEY IS data-name-4 [,data-name-5 | 55 
| INDEXED BY index-name-1 [, index-nane-2] | fey 
BY LEFT 
5; SYNC { sen | 
| SYNCHRONIZED a 


rae WHEN aii 


:{ VALUE | [an [titeral-1 | - 


Option 3: 
66 data-name-l RENAMES data-~name~2 THRU data-name-3 
— —— THROUGH : 


Option 4: 


THRU 


THROUGH litera 1-2 | 


VA Is 
88 condit ion-name = | es literal-1 | { 
a | ! 


| 1iteral-3 [ { taROucH literal-4 | ie 


The optional clauses shown may occur in any order, with the exception that if 
REDEFINES is used it must follow data~name-1l. 


The record description must be terminated by a period. 


Level-~numbers in Option 2 may be any number from 1-49 or 77. The optional 
clauses may be written in any order, with two exceptions: the data-~name-1 or 
FILLER clause must immediately follow the level-number; the REDEFINES clause, 


when used. must immediately follow the data~name-1 clause. 


RECORD DESCRIPTION 


The clauses PICTURE, BLANK WHEN ZERO, JUSTIFIED, and SYNCHRONIZED must occur 


on elementary item level only. 


The PICTURE clause must be specified for every elementary item except an index 


data item, in which case use of the clause is prohibited. 


Option 1 can be used when the COBOL library contains the record description 


entry. Otherwise, one of the other options must be used. 


In Option 4, there is no practical limit to the number of literals in the 


condition~name series. 


The SYNCHRONIZED clause is for documentation only. 


BLANK WHEN ZERO 


BLANK WHEN ZERO 


The function of this clause permits the blanking of an item when its value 


is zero. 


The construct of this clause is: 


This clause overrides the zero-suppress float-sign functions in a PICTURE. 
If the value of a field is all zeros, the BZ clause will cause the field to 
be edited with spaces. However, it does not override the check protect 


function (zero suppression with asterisks) in a PICTURE, 


The BZ clause can only be used in conjunction with an item on an elementary 


level. 


BLANK WHEN ZERO may be associated only with PICTUREs describing numeric or 


numeric edited fields. 


The category of the item is considered to be numeric edited. 


CONDITION-NAME 


CONDITION-NAME 


Condition-name is a special name which the user may assign to a value or 
values within a data element. This value may then be referred to by the 


specified condition-name. 


The construct of. this clause is: 


88 condit ion-name 


Ann, 


VA Is 
Vas | oe literal-1l [| tHROucH | Literal-2 | 


i THRU : 
[1iteral-3 | {taROUcH | literal-4 | | 


Since the testing of data is a common data processing practice, the use of 
conditional variables and condition-names supplies a shorthand method which 
enables the writer to assign meaningful names (condition-names) to particular 


code values that may appear in a data-field (conditional variable). 


A condition-name can be associated with any item containing a level-number, 


except the following: 
a. Another condition-name. 
b. <A level 66 item. 


c. A group containing items with descriptions including JUSTIFIED, or 
USAGE (other than USAGE IS DISPLAY). 


dad. An index data-item. 
e. A data-item with the name FILLER. 
When defining condition-names, the following rules must be observed: 


a. If reference to a conditional variable requires subscripting, then 


references to its condition-names also require subscripting. 


b. A conditional variable may be used as a qualifier for any of its 


condition7~names. 
c. Condition-names can only appear in conditional statements. 


d. Whenever the THRU phrase is used, literal-1 must be less than 


literal-2, literal-3 less than literal-4, etc. 


CONDITION-NAME 


e, The characteristics of a condition-name are implicitly those of its 


conditional variable. 


The following example illustrates a conditon-name. If THIS-YEAR identi- 

fies the 12 months of a year, whereas its subordinate data items are defined 

as JANUARY, FEBRUARY, etc., and the values assigned to each month range from 

O1 to 12, then it follows that JUNE would have the assigned value of 06. Using 
the condition-name JUNE, the programmer can utilize it in conditional state- 
ments as follows: 


IF JUNE GO TO 


which is logically equivalent to the statement: 


IF THIS-YEAR IS EQUAL TO 06 GO TO 
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Figure 6-5. Coding of Condition~Name 


DATA-NAME 


DATA-NAME 


The purpose of this mandatory clause is to specify the name of each data 
element to be used in a program. If a data element requires a definite label, 
a data-name is assigned. Otherwise, the word FILLER can be used in its 


place. 


The construct of this clause is: 


( FILLER | 
| data-name-1 J 


The word FILLER can be used to name a contiguous description area that does 


not require programmatic reference. 


This entry must immediately follow a level-number other than an 88 level. 


FILLER is only applicable to elementary levels. 


A data-name need not be unique if it can be made unique through qualification 


by use of data-names on higher levels than itself. 


JUSTIFIED 


The JUSTIFIED clause specifies non-standard positioning of data within a 
receiving data item. 


The format for the JUSTIFIED clause is as foilows: 


JUSTIFIED 
JUST RIGHT 


The JUSTIFIED clause cannot be specified for a numeric~edited data item or 
for an item described as numeric. The JUSTIFIED clause cannot be specified 


for an item whose size is variable, for group items or for an index-data-name. 
The following are the standard rules for positioning within an area: 


a. Numeric data is aligned by decimal point (either implicit or explicit), 
with zeros filling any unused positions on either end, as required. 
In the absence of an explicit decimal point indication, the decimal 
point is assumed to be in the next position to the right of the units 
digit, Edited numeric data items are aligned by decimal point, with 
zero fill or truncation at either end as required within the receiv- 
ing character positions of the data item, except where editing require- 
ments cause replacement of the leading zeros. 

b. Alphabetic or alphanumeric receiving data items are aligned at the 
leftmost character position in the data item, with space fill or 
truncation to the right. 


When the receiving data items are described with the JUSTIFIED clause and it 
is larger than the sending item, the data is aligned at the rightmost char- 


acter position in the data item, with leading space fill. 


Example; 
SENDING RECEIVING 


PIC X(5) | a | 1 | 2 | 3 | C | PIC X(7) | | [A [1 [2 | 3 | c | 


When the receiving item is described with the JUSTIFIED clause and it is 
smaller than the sending item, the left-most characters are truncated. 


Example: 
SENDING RECEIVING 


PIC X(7) [A [3 [2 [3 Lc | D | E | PIC X(5) [2 | a C | D [=| 


If JUSTIFIED RIGHT is specified for an alphabetic or alphanumeric item, data 


is placed into the area, with space fill to the left. 


JUSTIFIED 


If JUSTIFIED RIGHT is specified for an alphabetic or alphanumeric item and the 


receiving field is smaller than the sending field, truncation will occur from 
the left. 


When standard justification is desired, the JUSTIFIED clause is not required. 


Justification is considered only when data is moved into an area. 
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LEVEL-NUMBER 


LEVEL-NUMBER 


The function of this clause is to show the hierarchy of data within a logical 
record. Its further function is to identify entries for condition-names, non- 


contiguous constants, working-storage items, and for re-grouping. 


The construct of this clause is: 


FILLER 


level-number { EERER nen 


A level-number is the first required element of each record and data-name 


description entry. 
Level-numbers may be as follows: 
a. O1 to 49 - record description and WORKING-STORAGE entries. 


b. 66 - RENAMES clause used as a record description or WORKING- 
STORAGE entry. 


Ge oft - applicable to WORKING-STORAGE only as non-contiguous 


items and must precede all other level-numbers. 


d. 88 - condition-name clause used as a record description or 
WORKING-STORAGE entry. 


Level-numbers O1 through 49 are used for record or WORKING-STORAGE descriptions. 
Level-number O1 is reserved for the first entry within a record description. 
Level-number 66 is reserved for RENAMES entries. Level-number 77 is used for 
miscellaneous elementary items in the WORKING-STORAGE SECTION when these items 
are unrelated to any record. They are called non-contiguous items since it 
makes no difference as to the order in which they actually appear. lLevel- 
number 88 is used to define the entries relating to condition-names in record 
descriptions or WORKING-STORAGE entries. 


For additional information on level-numbers, see LEVEL NUMBER CONCEPT. 


The OCCURS clause eliminates the need for separate entries for repeated data, 


OCCURS 


and it supplies information required for the application of subscripts and 
indices. 


The construct for this clause has the following two options: 


Option 1: 
(3B mst integer-2 TIMES 
ASCENDING meee See 
lisse KEY IS data-name-2 [,data-name-3] ee 
[INDEXED BY index-name-1 [,index-name-2] ...] 
Option 2: 
{Gcours} integer-1 TO integer-2 TIMES [DEPENDING ON data~name~1] 
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[INDEXED BY index-name-1 [,index-name~2] oo] 


Integer-1l and integer-2 must be positive integers. If both are used, the value 
of integer-1l must be less than integer-2. The value of integer-1l may be zero, 


but integer-2 cannot be zero. 
The data description of data-name-1 must describe a positive integer. 


Data~name-2 must either be the name of the entry containing the OCCURS clause 


or the name of an entry subordinate to the entry containing the OCCURS clause. 


Data~name-3, etc., must be the name of an entry subordinate to the group item 
which is the subject of this entry. 


Data~name-1, data-name~2, and data~name-3 may be qualified. 
The OCCURS clause cannot be specified in a data description that: 


a. Has an O1, 66, 77, or 88 level-number., 
Describes an item whose size is variable. The size of an item is 
variable if its data description, or any item subordinate to it, 


contains option 2 of the OCCURS clause, 


The OCCURS clause is used in defining tables and other homogeneous sets of 
repeated data. Whenever the OCCURS clause is used, the data-~name which is the 
subject of this entry must be either subscripted or indexed whenever it is re- 
ferred to in a statement other than SEARCH. Further, if the data-name asso- 
ciated with the OCCURS clause is the name of a group item, then all data~ 
names belonging to the group must be subscripted or indexed whenever they 


are used as operands. 


Except for the OCCURS clause itself, all data description clauses associated 
with an item whose description includes an OCCURS clause applies to each oc~ 


currence of the item described. 


In option 1, the value of integer-2 represents the exact number of occurrences 


of items within the table, 


In option 2, the value of integer-l represents the minimum number of oc” 
currences, and integer-2 represents the maximum number of occurrences. This 
does not imply that the length of the table is variable but that the number 
of occurrences is variable. When option 2 is specified in a data description 
entry, only items subordinate to the data item described with the option 2 


OCCURS may follow in the Record Description. Thus, the following is illegal: 


O1 DATA-1. 
05 TAB-1 OCCURS 1 TO 50 DEPENDING ON CNT. 
10 TAB-2 PIC 9(5). 
05 TAB-3 PIC 9(5). 


Any unused character positions resulting from the DEPENDING option will appear 


in the external media. 


The DEPENDING option is for documentation and serves only to document the end 
of the occurrences of data items. The value of data-name-1 is the count of 
the number of occurrences of items, and its value should not exceed integer-2, 
The user must employ his own tests to determine how many occurrences of the 
item are actually valid and present in the record. 


If data-name-1 in the DEPENDING option is an entry in the same record as the 
current data description entry, data-name-1 should not be the subject of, or 
be subordinate to, an entry whose description includes option 2 of an OCCURS 


clause, 
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An entry which contains option 2, or has a subordinate entry which contains 
option 2, cannot be the object of the REDEFINES clause. For example, the 
following is illegal: 


Ol W-S-TABLE. 


02 TAB-SIZE OCCURS 1 TO 5 TIMES DEPENDING ON DEP-NAME. 
02 RED-TAB REDEFINES TAB-SIZE. 


The KEY IS option is used to indicate that the repeated data is arranged in 
ascending or descending order according to the values contained in data-name- 
Z, Gata-name-S, and so on. The data-~names are listed in descending order of 


their significance. 
If data-~name-2 is not the subject of this entry, then the following applies: 


a. All of the items identified by the data-names in the KEY IS phrase 
must be within the group item which is the subject of the OCCURS 
entry. 

b. None of the items identified by data-names in the KEY IS phrase can 
be described by an entry which either contains an OCCURS clause or is 
subordinate to an intervening entry which contains an OCCURS clause. 

The following example illustrates a use of the OCCURS clause to provide nested 
descriptions. A reference to ITEM-4 requires the use of three levels of sub- 

scripting; e.g., ITEM-4 (2, 5, 4). A reference to ITEM-3 requires two sub- 
ITEM-3 (I,J). 


2 ITEM; OCCURS 2 TIMES:... 
3 ITEM-1;... 
3 ITEM-2; OCCURS 5 TIMES;... 
4 ITEM-3;... 
4 ITEM-4; OCCURS 5 TIMES;... 
5 ITEM-5;... 
5 ITEM-6; 


In the example above, there are 50 ITEM-4 quantities. 


The following example shows another use of the OCCURS clause. Assume that 
the user wishes to define a record consisting of five AMOUNT items, followed 


by five TAX items. Instead of the record being described as containing 10 


individual data items, it could be described in the following manner: 


1 TABLE;... 
2 AMOUNT; OCCURS 5 TIMES;... 
2 TAX; OCCURS 5 TIMES;... 


The above definition would result in memory allocated for five AMOUNT fields 
and five TAX fields. Any reference to these fields is made by addressing 
the field by name AMOUNT or TAX followed by a subscript denoting the parti- 


cular occurrence desired. (See the discussion on subscripts, page 6-12.) 


An INDEXED BY clause is required if the subject of this entry, or an item 
within it, is to be referred to by indexing. If indexing is to be used, each 
table dimension must contain an INDEXED BY clause. The index-names identified 


by the clause must not be defined elsewhere in the program and must be unique. 
The ASCENDING/DESCENDING KEY option is for documentation only. 


The operands in the INDEXED BY option are index-names or indices. The operands 
of an INDEXED BY option must appear in association with an OCCURS clause and 
are usable only when referencing that level of the table. In the use of three- 
level indexing, each level must have an INDEXED BY option and in a given 


indexing operation, only one operand from each option may be used, 


Other than its use as an index into an array, an index~name may be referred 

to only in a SET, SEARCH, PERFORM, or ina relation condition. All index-names 
must be unique. Index-names have an assumed construction of PC §89(6) 
COMPUTATIONAL. 


Using an index-name associated with one row of a table for indexing into 
another row of a table will not cause a syntax error, but will, in most 
cases, cause incorrect object-~time results, since it is the index-name that 


contains the information pertinent to the element sizes. 
When using an index~name series (e.g., INDEXED BY A, B, C): 
a. The indexes should be used only when referencing the associated row. 


b. <All "assumed" references are to the first index-name in a series. 


Others in the series are affected only during an explicit reference. 


Indexing into a table follows much the same logic as subscripting. There is 
a limit of three indexes per operand (e.g., A (INDEX-1, INDEX~-2, INDEX~-3)). 
The use of a relative index allows modification of the index-name without 
actually changing the value of the index~-name. 
Example: 

A (INDEX-1 + 3, INDEX-2 - 4, INDEX~-3) 
An index-name followed by a + or - integer indicates relative indexing, which 


causes the affected index to be incremented or decremented by that number of 


elements within the table. 
A data-~name whose USAGE is defined to be INDEX is an index-data~name. 


Condition-names, PICTURE, VALUE, SYNCHRONIZED, or JUSTIFIED cannot be associated 


with an index-data-name, 


The COBOL compiler will assign the construction of a PC S9(6) COMPUTATIONAL 


area for each index-data-name specified. 


It is not permissible to relationally compare an index-data~name against a 
. ; 
a 
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PICTURE 


The PICTURE clause describes the general characteristics and editing require- 


ments of an elementary item. 


The general construct for the PICTURE clause is as follows: 


PICTURE 
PIC IS character-string 


The following are rules for the PICTURE clause: 
a. A PICTURE clause can only be used at the elementary item level. 


b. A character-string consists of certain allowable combinations of 
characters in the COBOL character set used as symbols. The allowable 


combinations determine the category of the elementary item, 


c. The maximum number of symbols allowed in the character-string is 30. 
When an unsigned integer enclosed in parentheses immediately follows 
a symbol, the integer specifies the number of consecutive occurrences 
of that symbol. This may not be used for those symbols limited to 


one occurrence per picture. 


d. A PICTURE clause must appear in every elementary item except those 
items whose USAGE is declared as INDEX. 


Record descriptions do not have to conform to the physical characteristics 
of an ASSIGNed hardware-name. The flow of input-output data will terminate 
at the end of the prescribed PICTURE size. For example: 

READER (can read 80 columns) description can be PICTUREd 

from 1 through 80. 


PUNCH (can punch 80 columns) description can be PICTUREd 
from 1 through 80. 


CARD96 (can read or punch 96 columns) description can be 
PICTUREd from 1 through 96. 


PRINTER (120/132 character lines) description can be 
PICTUREd from 1 through maximum. 


Categories of Data 


There are five categories of data that can be described with a PICTURE clause: 
alphabetic, numeric, alphanumeric, alphanumeric edited, and numeric edited. 


These categories are described as follows: 


ALPHABETIC 


To define an item as alphabetic, its PICTURE character-string can only contain 
the symbol A, and its contents, when represented externally, must be any com- 
bination of the 26 letters of the alphabet and the space from the COBOL charac- 


ter set. 


NUMERIC 


To define an item as numeric, its PICTURE character-string can only contain 
the symbols 9, P, S, Jd, K, 
must be a combination of the numerals 0, 1, 2, 3, 4, 5, 6, 7, 8, and 9. The 


item may include one operational sign. 


and V. Its contents, when represented externally, 


ALPHANUMERIC 


To define an item as alphanumeric, its PICTURE character-string is restricted 
to certain combinations of the symbols A, X, 9, and the item is treated as if 
the character-string contained all X's. Its contents, when represented exter- 
nally, are any of the allowable characters in the COBOL character set. A 

PICTURE character-string which contains all 9's or all A's does not define an 


alphanumeric item. 


ALPHANUMERIC EDITED 


To define an item as alphanumeric edited, its PICTURE character-string is 
restricted to certain combinations of the symbols A, X, 9, B, and O (zero) 


given by the following rules: 


a. The character-string must contain at least one B and one X, or at 


least one O (zero) and one X, or 


b. The character~string must contain at least one O (zero) and one A. 
NUMERIC EDITED 


To define an item as numeric~edited, its PICTURE character~string is restricted 
to certain combinations of the symbols B, P, V, Z, 0, 9, , (comma), . (period), 
*, +, -, CR, DB, and the currency sign ($). The PICTURE character string must 

contain at least one symbol other than V. and 9. The allowable combinations 


are determined from the order of precedence of symbols and the editing rules. 


Classes of Data 


The five categories of data items are grouped into three classes: Alphabetic, 
Numeric, and Alphanumeric. For Alphabetic and Numeric, the classes and cate7 
gories are synonymous. The Alphanumeric class includes the categories of 


Alphanumeric Edited. Numeric Edited and Alphanumeric (without editing). Every 
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elementary item belongs to one of the classes and further to one of the cate- 
gories. The class of a group item is treated at object time as Alphanumeric 
regardless of the class of elementary items subordinate to that group item. 


Figure 6-6 depicts the relationship of the class and categories of data items. 


LEVEL OF ITEM CLASS CATEGORY 
Alphabetic Alphabetic 
Numeric~editied 
Alphanumeric Alphanumeric~edited 
Alphanumeric 
Alphanumeric Alphanumeric 


Figure 6-6. Relationship of Class and Category 


Group 


Function of the Editing Symbols 


An unsigned non-zero integer which is enclosed in parentheses following the 
symbols A, X, 9, P, Z, *, B, 0, +, 7, the comma, or the currency sign ($) 
indicates the number of consecutive occurrences of the symbol. Note that the 
following symbols may appear only once in a given PICTURE clause: S, J, V, K, 


(period), CR, and DB. 


The functions of the symbols used to describe an elementary item are explained 


as follows: 


A The symbol A in the character-string represents a character position 


which can contain only a letter of the alphabet or a space. 


B Each symbol B in the character-string represents a character position 


into which the space character will be inserted. 
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PICTURE 


The letter P indicates an assumed decimal scaling position and is 
used to specify the location of an assumed decimal point when the 
point is not within the number that appears in the data item. The 
scaling position character P is not counted in the length of the 

data item. Scaling position characters are counted in determining 


in numeric edited items 


the maximum number of digit positions (16: 
or NUMERIC items which appear as operands in arithmetic statements. 
The scaling position character P can appear only to the left or right 
as a continuous string of P's within a PICTURE description. Since 
the scaling position character P implies an assumed decimal point 

(to the left of P if P's are leftmost PICTURE characters, and to 

the right of P if P's are rightmost PICTURE characters), the assumed 
decimal point symbol V is redundant as either the leftmost or right- 


most character within such a PICTURE description. The character P 


and the insertion character '."' (decimal point) cannot both occur in 
the same PICTURE character string 


The letter S is used in a character-string to indicate the presence 

of an operational sign and must be written as the leftmost character 
in the PICTURE. The S is not counted in determining the length of 

the elementary item unless USAGE is CMP. If USAGE is DISPLAY, S in- 
dicates the sign is carried as an overpunch in the most-significant 
position. J and S are mutually exclusive. For CMP, S indicates the 
Sign is carried in the leading digit of the field. The four zone bits 
in EBCDIC and CMP are set to a "D", for negative, and to a "C" for po- 
sitive. Wherever possible, S should be used rather than J or K. 


NOTE 


Any value other than D will be assumed positive. 


edie’ Of. eo i 
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V The letter V is used ina character-string to indicate the location 


of the assumed decimal point and may only appear once in a character- 
string. The V does not represent a character position and, therefore, 
is not counted in the length of the elementary item. When the assumed 
decimal point is to the right of the rightmost symbol in the string, 
the V is redundant. 


X Each letter XK in the character-string is used to represent a charac- 
ter position which contains any allowable character from the computer's 


character set. 


Z Each letter Z in a character-string may only be used to represent the 
leftmost leading numeric character positions which will be replaced 
by a Space character when the contents of the character position is 
zero. Each Z is counted in the length of the item. Zero suppression 
is terminated with the first non-zero numeric character in the data. 
Insertion characters are also replaced by spaces while suppression is 
in effect. Z can also appear to the right of J, when the J symbol is 
used to reinitiate zero suppression. For additional information on 


zero suppression, see the BLANK WHEN ZERO clause. 


9 Each 9 in the character-string represents a character position which 
contains a numeral and is counted in the length of the item. If 
USAGE is explicitly or implicitly DISPLAY, the data will be operated 
on as 8-bit (BYTE) characters. If USAGE is CMP, it will be operated 
on as 4-bit digits. 


6) Each O (zero) in the character-string represents a character position 
into which the numeral zero will be inserted. When that item is re- 


ceiving field, the O is counted in the length of the item. 


Each comma in the character-string represents a character position 
into which the comma character will be inserted. This character posi- 
tion is counted in the length of the item. (See DECIMAL-POINT 


IS COMMA.) 


When the character period appears in the character-string, it is an 
editing symbol which represents the decimal point for alignment 
purposes; in addition, it represents a character position into which 
the period character will be inserted. The period character is 


counted in the length of the item. For a given program, the functions 
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of the period and comma are exchanged if the clause DECIMAL-POINT IS 
COMMA is stated in the SPECIAL-NAMES paragraph. In this exchange, the 
rules for the period apply to the comma and the rules for the comma 
apply to the period whenever they appear in a PICTURE clause. V and 


(.) are mutually exclusive. 


The symbols +, -, CR, and DB are used as editing sign control symbols. 
When used, they represent the character position(s) into which the 
editing sign control symbol will be placed. The symbols are mutually 
exclusive in any one character-string, and each character used in the 
symbol is counted in determining the length of the data-item. (Note 
that the symbols CR and DB are two character symbols, and any other 


use of C or D constitutes an error.) 


Each * symbol in the character-string represents a leading numeric 
character position into which an asterisk will be placed when the 
contents of that position is zero. Each * is counted in the length 

of the item. Asterisk replacement is disabled when the first non-zero 
character is encountered, or when the decimal point (implicit or ex- 
plicit) is reached. When the PICTURE character string specifies only 
asterisks (*), and the value of the item is zero, the entire output 
item will consist of asterisks and the decimal point, if present. 


BLANK WHEN ZERO does not override the insertion of asterisks. 


The currency symbol ($) in the character-string represents a character 


position into which a currency symbol is to be placed. The currency 


symbol in a character-string is represented by either the doilar sign 
($) symbol or by the single character specified in the CURRENCY SIGN 
clause in the SPECIAL-NAMES paragraph. The currency symbol is counted 


in the length of the item. (Copy deleted.) 
NOTE 


Any other character which is not a defined 
picture character appearing in the PICTURE 
is assumed to be an insert character. 
Example 
99/99/99 could be a date mask and 
999=99=999 could represent a social 


security number mask. 


Editing Rules 


There are two general methods of performing editing in the PICTURE clause: 


by insertion or by suppression and replacement. 


Floating insertion editing and editing by zero suppression and replacement are 
mutually exclusive in a PICTURE clause. Only one type of replacement may be 
used with zero suppression in a PICTURE clause. 


The type of editing which may be performed upon an item is dependent upon the 
category to which the item belongs. Figure 6-7 specifies which type of editing 


may be performed upon a given category. 


CATEGORY TYPE OF EDITING 


Alphabetic None 
Numeric None 


Alphanumeric None 


Alphanumeric Edited Simple Insertion, O and B 
Numeric Edited All, Subject to above Rules 


Figure 6-7. Permissible Editing Types 


Insertion Editing. The following are the four types of insertion editing avail- 
able: 


Simple Insertion. 
Special Insertion, 


Fixed Insertion. 


ao 7 BP 


Floating Insertion. 


Simple Insertion Editing. The comma (,), B (space), and 0 (zero) are used as 
the insertion characters. The insertion characters are counted in the length 


of the item and represent the position in the item into which the character 
will be inserted. 


Special Insertion Editing. The period (.) is used as the insertion character. 

In addition to being an insertion character, it also represents the decimal point 
for alignment purposes. The insertion character used for the actual decimal 
point is counted in the length of the item. The use of the assumed decimal point 
(represented by the symbol V) and the actual decimal point represented by the 


insertion character) in the same PICTURE character~string is prohibited. If the 
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insertion character is the last symbol in the character-entry, the character- 
string must be immediately followed by the semicolon punctuation character, 

and then followed by a space. If the PICTURE clause is the last clause of that 
DATA DIVISION entry, and the insertion character is the last symbol in the 
character-string, the insertion character must be immediately followed by a 
period punctuation character followed by a space. This results in two con- 
secutive periods (or ",." if DECIMAL POINT IS COMMA has been specified) appear- 
ing in the data description entry. The result of special insertion editing is 
the appearance of the insertion character in the item in the same position as 
shown in the character-string. 

Fixed Insertion Editing. The currency sign ($) and the editing sign control 
symbols "+", "-'", CR, and DB are the insertion characters. Only one currency 
symbol and only one of the editing sign control symbols can be used ina given 
PICTURE character-string. When the symbols CR or DB are used, they represent 
two character positions in determining the length of the item, and they must 


represent the rightmost character positions that are counted in the size of the 


item. 
The symbol "+" or ''~'', when used, must be the leftmost or rightmost character 
position to be counted in the size of the item. The currency symbol must be 


the leftmost character position to be counted in the size of the item except 
that it can be preceded by either a + or a - symbol. Fixed insertion editing 
results in the insertion character occupying the same character position in 
the edited item as it occupied in the PICTURE character-string. Depending 
upon the value of the data item, editing sign control symbols produce the re- 


sults indicated in table 67-3. 


Table 6-3. Editing Symbols and Results 


EDITING SYMBOL IN Ber DATA ITEM 
PICTURE CHARACTER-STRING OR ZERO NEGATIVE 


3 - 
SPACE = 
2 SPACES CR 
2 SPACES DB 


PICTURE 


Floating Insertion Editing. The currency symbol and editing sign control 
symbols + or ~ are the insertion characters, and they are mutually exclusive 


as floating insertion characters in a given PICTURE character~string. 


Floating insertion editing is indicated in a PICTURE character-string by using 
a string of at least two of the allowable insertion characters to represent the 
leftmost numeric character positions into which the insertion characters can be 
floated. Any of the simple insertion characters embedded in the string of 
floating insertion characters or to the immediate right of this string are part 
of the floating string; however, they represent themselves rather than numeric 


character positions. 


In the PICTURE character-string, there are only two ways of representing float— 
ing insertion editing. One way is to represent any or all of the leading num- 
eric character positions to the left of the decimal point by the insertion char- 
acter. The other way is to represent all of the numeric character positions 


in the PICTURE character-string by the insertion character. 


The result of floating insertion editing depends upon the representation in 

the PICTURE character~string. If the insertion characters are only to the left 
of the decimal point, the result is a single insertion character that will be 
placed into the character position immediately preceding the decimal point, or 
the first non-zero digit in the data represented by the insertion symbol string. 


whichever is further to the left in the PICTURE character-string. 


If all numeric character positions in the PICTURE character-string are repre- 
sented by the insertion character, the result depends upon the value of the 
data. If the value is zero, the entire data item will contain spaces. If the 
value is not zero, the result is the same as when the insertion character is 


only to the left of the decimal point. 


To avoid truncation, the minimum size of the PICTURE character-string for the 
receiving data item must be the number of characters in the sending data item, 
plus the number of fixed insertion characters being edited into the receiving 


data item, plus one for the floating insertion character. 


Suppression Editing. The suppression of leading zeros in numeric character 
positions is indicated by the use of the character Z or the character * 
(asterisk) as suppression symbols in a PICTURE character-string. These symbols 
are mutually exclusive in a given PICTURE character-string. Each suppression 
symbol is counted in determining the length of the item. If Z is used. the 
replacement will be the space, and if the asterisk is used. the replacement 


character will be the *, 


Zero suppression and replacement are indicated in a PICTURE character-string 
by uSing a string of one or more of the allowable symbols to represent leading 
numeric character positions which are to be replaced when the associated char- 
acter position in the data contains a zero. Any of the simple insertion char- 
acters embedded in the string of symbols or to the immediate right of this 


string are part of the string. 


In a PICTURE character~string, there are only two ways of representing zero 
suppression. One way is to represent by suppression symbols, any or all of 


the leading numeric character positicns to th 


Taft af +h 
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other way is to represent all of the numeric character positions in the PICTURE 


character-string by suppression symbols. 


If the suppression symbols appear only to the left of the decimal point, any 
leading zero in the data which corresponds to a symbol in the string is re- 
placed by the replacement character. Suppression terminates at the first non- 
zero digit in the data represented by the suppression symbol string or at the 


decimal point, whichever is encountered first. 


If all numeric character position 
sented by suppression symbols and the value of the data is not zero, the re- 
sult is the same as if the suppression characters were only to the left of the 
decimal point. If the value is zero, the entire data item will be spaces if 
the suppression symbol is Z or all asterisks (*), except for the actual decimal 


point, if the suppression symbol is *, 


Whan th 
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erisk is used as symbol and the clause BLANK 


WHEN ZERO also appears in the same entry, the zero suppression editing overrides 
the function of BLANK WHEN ZERO. 


Replacement Editing. Symbols +, -, *, Z, and the currency symbol, when 
used as floating replacement characters, are mutually exclusive within a 
given character string. At least two floating replacement characters must 
appear as the leftmost characters in the PICTURE. 
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Precedence of Symbols 


Table 6-4 shows the order of precedence when characters are used as symbols 
in a character string. An X at an intersection indicates that the symbol(s) 
at the top of the column may precede, in a given character string, the 
symbol(s) at the left of the row. Arguments appearing in braces indicate 
that the symbols are mutually exclusive. The currency symbol is indicated 


by the symbol "cs", 


At least one of the symbols "A", "X", "Z", "9", or "*", or at least two of 


the symbols "+", "—"" or "cs" must be present in a PICTURE string. 
When "+" or "-'"' is to be the rightmost printable character in a PICTURE char- 
acter(s) P, if any, must follow, instead of preceded, the "+" or "-", There- 


fore, PICTURE 99+PPP is valid, and PICTURE 99PPP+ is invalid. 


Non-floating insertion symbols "+" and ''-", floating insertion symbols "Z", 
WM oman tem and '"es'', and other symbol "P" appear twice in the PICTURE 
character precedence chart. The leftmost column and uppermost row for each 
symbol represent its use to the left of the decimal point position. The 
second appearance of the symbol in the chart represents its use to the right 


of the decimal point position. 


Table 6-4. Order of Precedence 


Non-Floating Floating 


Insertion Symbols Insertion Symbols 


Second +)1(+)/ (CR (2 Zl (+ *) 
B |° , ;cs {4 , ¢S | cs 
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Late A eae 
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Insertion Symbols 


Floating 
Insertion Symbols 
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PICTURE 


The following examples illustrate some of the ways a PICTURE clause may be 


coded: 


ALPHABETIC ITEMS; 
AA 
A(25) 
ALPHANUMERIC ITEMS: 
XX 
X(15) 
A(5)9(4) 
99A9OKXK 
NUMERIC ITEMS: 
9 
99999 
9V99 
S99V99 
999PPP 
J99 
EDITED NUMERIC ITEMS (CLASS IS ALPHANUMERIC): 
9,99 
ZLLLZ 
$$.99CR 
B(4)9 
BRK KKK, OD 
Seer 9 ('-" IS A MINUS SIGN) 
++ ,++9.999 
SRA KK, OQODB 
999,999 
(Copy deleted.) 


PICTURE 


Table 6-5 demonstrates the editing function of the PICTURE clause. 


Table 6-5. Editing Application of the PICTURE Clause 


SOURCE AREA RECEIVING AREA 


9(5) $22,229. 
v9(5) $$$, $$9. 
v9(5) $27,229. 
9(5) 00000 $$$, $$9.99 $0.00 
9(3)V99 12345 $227,229.99 |$ 123.45 
9(5) 00000 $$$, $$$. $$ 
9(5) 01234 SaX **9,99 | $1,234.00 
9(5) 00000 $3 IK | Ok RK kK 
9(5) 00123 SkE **9,99 | $*KK1Z3,00 
9(3)V99 00012 $22,229.99 |$ 0.12 
9(3)V99 12345 $$$, $$9.99 $123.45 
9(3) V99 00001 $ZZ,Z2Z.99 |$ Ol 
9(5) 12345 $$$,$$9.99 | $12,345.00 
9(5) 00000 SZZ, LLL. ZZ 
9(3)V99 00001 $$$, $$$. $$ $.01 
S9(5) | (4) 12345 ZZZLZ9. 99+ 12345, 00+ 
S9(5) (-) 00123 -~-99999,99 -00123.00 
9(3) V99 12345 999.00 123.00 
$9(5) (-) 12345 ZZZLZ9.99- 12345, 00- 
$9 (5) (+) 12345 ZZLZZ9.99- 12345. 00 
9(5) 12345 BBB99. 99 45.00 
S9(5)V (-) 12345 -ZZZ2Z9.99 -12345.00 
$9(5) (-) 12345 S3$S$$.99CR | $12345.00CR 
$99V9(3) (-) 12345 | ------ 99 -12.34 
S9(5) (+) 12345 $$$$$$.99CR | $12345.00 


9(3)V99 12345 999.BB 123. 
9(5) 00999, 00345. 
9(7) 0012003 ZZ99IZ9 12 


REDEFINES 


The function of this clause is to allow an area of memory to be referred to 


by more than one data~name with different formats and sizes. 


The construct of the REDEFINES clause is: 
level-number data-name-1l1 REDEFINES data-name-2 


The REDEFINES clause, when specified, must immediately follow data~name-l. 
The level-numbers of data~name-l and data-name-2 must be identical and must 
not be 66 or 88. 


This clause must not be used in O1 level entries of the FILE SECTION, as an 
implicit REDEFINES is assumed when multiple O01 level entries within a file 
description are present. The size of the record(s) causing implicit redefini- 
tion does not have to be equal to that of the record being redefined. The 
various sizes of implicitly redefined record descriptions create no restriction 
as to which description is to be coded first, second, third, etc., in the 
source program. The size of the largest 01 level entry determines the size of 


the storage area. 


Redefinition starts at data-~name-2 and ends when a level-number less than or 


equal to that of data-~name-2 is encountered in the source program. 


When the level-number of data-name-~1l is other than O1 (in the WORKING~STORAGE 
SECTION), it must specify a storage area of the same size as specified by data- 
name-2. It is important to observe that the REDEFINES clause specifies the 
redefinition of a storage area, not simply of the data items occupying that 


area. Redefined Ol levels do not have to be the same size. 


Multiple redefinitions of the same storage area are permitted. The entries 
giving the new descriptions of the storage area must follow the entries defin- 


ing the area being redefined, without intervening entries that define new 


storage areas. . defi 


The data description entry being redefined cannot contain an OCCURS clause, 


nor can it be subordinate to an entry which contains an OCCURS clause. 


The entries giving the new description of the storage area must not contain 


VALUE clauses, except in condition-~name entries. 


Data~name-2 need not be qualified. 


6-62 


An example of REDEFINES entries follows: 


O01 WORKI. 


03 
03 


03 


PART-ONE PC X(60). 

PART-TWO REDEFINES PART-ONE. 

05 xX PC X(40). 

05 Y PC X(20). 

PART-THREE REDEFINES PART-TWO PC 9(60). 


| RENAMES | 


RENAMES 


The RENAMES clause permits alternative, and possibly overlapping grouping of 


elementary items. 


The construct of this clause is: 


HROUGH 
66 data-~name-1l1 RENAMES data-name~2 ag data-name~3 | 


One or more RENAMES entries can be written for a logical record. All RENAMES 
entries associated with a given logical record must immediately follow its 
last record description entry. It is not possible to "chain" RENAMES; i.e., 
it is illegal to rename data item "A" to "B' and then rename "B" to "C". How- 


ever, multiple RENAMES of a data-name are permitted. (See figure 6-8.) 


Data-~name-2 and data~name-3 must be names of elementary items or groups of 
elementary items of the same logical record and cannot be the same data-name. 
A 66 level entry cannot rename another 66 level entry nor can it rename a 77, 


88, or Ol level entry. 


When data~name~3 is specified, data~name~l is a group item which includes all 
elementary items starting with data-name-2 (if data-name~2 is an elementary 

item) or the first elementary item in data-name-2 (if data-name-2 is a group 
item), and concluding with data-name-3 (if data-name-3 is an elementary item) 


or the last elementary item in data-name-3 (if data-name-3 is a group item). 


When data~name-3 is not specified, data~name~2 can be either a group or an 
elementary item; when data-name~2 is a group item, data-name-l is treated as 
a group item; and when data~name-2 is an elementary item, data-name-1 is 


treated as an elementary item. 


The beginning of the area described by data~name-3 must not be to the left of 
the beginning of the area described by data-~name-2. The end of the area des- 
cribed by data~name-3 must not be to the left of the end of the area described 
by data~name~2. Data~name~3 cannot be contained within data-~name-2., Data-name- 


2 and data-name-3 may be qualified. 


Data~name-1 cannot be used as a qualifier, and can only be qualified by the 
names of the O1 level, SD, or FD entries. Neither data~name-2 nor data-name-3 
may have an OCCURS clause in its record description entry or be subordinate 


to an item that has an OCCURS clause in its record description entry. 


When data~name-3 is specified, 


including data~name-2 and data-name-3, 


Data-name~1 will assume the USAGE of the item being renamed. 


option is used, 
USAGE. 


Ol TAB. 


Al 
A2 
A3 
A4 


X1 
X2 
X3 
RENAMES 
RENAMES 
RENAMES 
RENAMES 
RENAMES 


oO 
fo>) 
tio a Ww 


PIC 
PIC 
PIC 
PIC 


PIC 
PIC 
PIC 


X(6). 
X(8). 


Al THRU A3. 
A4 THRU X2 


none of the elementary items within the range, 


can be variable~occurrence items. 


If the THRU 


all items within the RENAMES range must have the same 


(i.e., Al THRU A4) 
(i.e., Al THRU A4) 
(i.e., A2 THRU X3) 

) 


Figure 678. 


Examples of RENAMES 


USAGE 


The function of this clause is to specify the format of a data item in computer 


storage. 


The construct of this clause is: 


(USAGE Is ] 


The USAGE clause can be written at any level. If USAGE is written on group 


level, it applies to each elementary item in that group. 


The USAGE of an elementary item cannot contradict the USAGE of a group to 


which the item belongs. 


COMPUTATIONAL-~1 and CMP-1 are acceptable substitutes for, and are equivalent 
to, COMPUTATIONAL, COMP, or CMP entries. 


A warning message of POSSIBLE CMP GROUP USAGE ERROR will appear whenever the 
receiving field is a group CMP item. This message indicates that the resultant 
contents during object~program execution of the group CMP item may not contain 


expected results. 


Group moves are performed whenever the sending or receiving field is a group 
item, and both will be treated as alphanumeric (byte) data, The appropriate 
conversion takes place when a translation occurs from ASCII to EBCDIC or 
EBCDIC to ASCII. 


USAGE is a declaration for the EBCDIC internal representation of the system 


and is defined as follows: 


a. When USAGE IS DISPLAY, the data item consists of 8-bit (byte) 


characters. 


b. When USAGE IS COMPUTATIONAL, the data item consists of 4-bit coded 
digits and must be numeric. If a group item is described as computa- 


tional, the elementary items in the group are computational. 


c. When USAGE IS INDEX, a PICTURE may not be specified. For example, 
"77 ABC USAGE IS INDEX." An elementary item described with the USAGE 
IS INDEX clause is called an index data item. An index data item can 
be referred to directly only in a PERFORM, SEARCH, or SET statement 


or in a relational condition, and is used for temporary storage of an 


index-name. 


The PICTURE of a COMPUTATIONAL item can contain only 9's, the operational sign 


character S, J, the decimal point character V, and one or more P's. 


COMPUTATIONAL items may be declared for 9-channel magnetic tape files (TAPE7-9), 
disk (DISK), REMOTE, paper tape files (PT-READER or PT-PUNCH), or for WORKING-— 
STORAGE SECTION items. 


A DISPLAY item is automatically converted to its 4-bit equivalent whenever the 
receiving area is defined as COMPUTATIONAL, except when the receiving area is 


a group item. A CMP item is automatically converted to its 8-bit equivalent 


whenever the receiving area is declared DISPLAY, except when the sending CMP 


item is a group item. 


If the USAGE clause is not specified for an elementary item, or for any group 


to which the item belongs, the usage is assumed to be DISPLAY. 


For the most efficient use of hardware storage and internal record storage 
areas, records should be devised so as to avoid intermixing of odd-length 
COMPUTATIONAL items with DISPLAY items. This rule is due to the compiler auto- 


matically placing the machine addresses of DISPLAY areas to a character bound- 


ary. 


[ vatue | 


VALUE 
The function of this clause is to declare an initial value to WORKING-STORAGE 


items, or the value associated with a condition-name. 


The construct of this clause is: 


VA , 7 ’ { THRU ; 7 
| VALUE IS literal-1l [oon oncin literal-2 | 
F _ THRU ; ei 
| literal-3 i penonew | literal 4] | 


The VALUE clause cannot be stated for any item whose size, explicitly or im- 


plicitly, is variable. 


Literals may consist of Figurative Constants; e.g., ZEROS, QUOTES, etc. 


Literals may be replaced by the reserved word DATE-COMPILED. If DATE-COMPILED 
is used in the VALUE clause, the date that the program was compiled will be 
placed in the datawname in 
In the FILE SECTION, the VALUE clause is allowed only in condition-name (88 
level) entries. VALUE entries in other data descriptions in the FILE SECTION 
are considered as being for documentation purposes only. 

The entire VALUE ciause may be used with condition-name entries. All levels 
other than 88 are restricted to the use of literal-l only. 

The VALUE clause must not be stated in a Record Description entry with an 
OCCURS clause, or in an entry which is subordinate to an entry containing an 


OCCURS clause. This rule does not apply to condition-name entries. 


The VALUE clause must not conflict with other clauses in the data description 
of an item or in a data description within the hierarchy of the item. The 


following rules apply: 


a. If a category of an item is numeric, all literals in the VALUE clause 
must be numeric literals; e.g., VA 1, 3 THRU 9, 12, 16 THRU 20, 25 
THRU 50, 51, 56. 


b. If the category of the item is alphabetic, all literals in the VALUE 
clause must be specifically stated as non-numeric literals; e.g., VA IS 


meat "pr a Oey An toy yt is @ by "pr O et Ady 
3 rd 3 3 . 3 = 3 bf 3 3 we 


VALUE 


ec. All literals in a VALUE clause of an item must have a value which 
requires no editing to place that value in the item as indicated by 
the PICTURE clause. 


d. The function of any editing clause or editing characters in a PICTURE 
clause is ignored in determining the initial appearance of the item 
described. However, editing characters are included in determining 
the length of the item. 


In a condition-name entry, the VALUE clause is required and is the only clause 
permitted in the entry. The characteristics of a condition-name are explicitly 


those of its conditional variable. 


Whenever the THRU phase is used, literal-1 must be less than literal-2, 


literal-3 less than literal-4, etc. 


If this clause is used in an entry at the group level, the literal must be a 
figurative constant or a non-numeric literal (byte characters). The group 
area is initialized without consideration for the USAGE of the individual ele- 
mentary items. Subordinate levels within the group cannot contain VALUE 


clauses. 


The VALUE clause must not be specified for a group containing items that require 


separate handling due to the USAGE clause. 


In a VALUE clause, there is no practical limit to the number of literals in a 


series. VALUE cannot be associated with an index-data-name. 


All numeric literals in a VALUE clause of an item must have a value which is 
within the range of values indicated by the PICTURE clause, and must not have 
a value which would require truncation of non-zero digits. Non-numeric items 
in a VALUE clause of an item must not exceed the size indicated by the PICTURE 
clause. 


| WORKING-STORAGE SECTION | 


WORKING-STORAGE SECTION 


The WORKING-STORAGE SECTION is optional and is that part of the DATA DIVISION 
set aside for intermediate processing of data. The difference between 
WORKING-STORAGE and the FILE SECTION is that the former deals with data 

that is not associated with an input or output file. All clauses which 

are used in normal input or output record descriptions can be used ina 
WORKING-STORAGE record description. 


Organization 


Whereas the FILE SECTION is composed of file description (FD or SD) entries 
and their associated record description entries, the WORKING~STORAGE SECTION 
is composed only of: record description entries and non-contiguous items. The 
WORKING-STORAGE SECTION begins with a section~header and a period, followed by 
item description entries for non-contiguous WORKING-STORAGE items, and then by 
record description entries for WORKING-~STORAGE records, in that order. The 
format for WORKING-STORAGE SECTION is as follows: 


WORKING-STORAGE SECTION. 


77 data~name-1 


MAUTH 


88 condition-name-1 


77 data~name-n 
Ol data~name-2 
02 data-name-3 


66 data-~name-~m RENAMES data-name-3 
Ol data-name-4 
02 data-name-5 
O03 data-~name-n 
88 condition-name-2 


Non-Contiguous WORKING-STORAGE 


Items in WORKING-STORAGE which bear no relationship to one another need not be 
grouped into records, provided they do not need to be further subdivided. In- 
stead, they are classified and defined as non-contiguous items. Each of these 
items is defined in a separate record description entry which begins with the 
special level-number 77. The following record description clauses are required 


in each entry: 


a. Level-number. 
b. Data-name, 
Cc. PICTURE clause. 


| WORKING-STORAGE SECTION | 


The OCCURS clause is not meaningful on a 77 level item and will cause an error 
at compilation time if used. Other record description clauses are optional 


and can be used to complete the description of the item if necessary. 
All level 77 items must appear before any O1 levels in WORKING-STORAGE. 


WORKING-STORAGE Records 


Data elements in WORKING~STORAGE which bear a definite relationship to one 
another must be grouped into records according to the rules for the formation 
of record descriptions. All clauses which are used in normal input or output 
record descriptions can be used in a WORKING-STORAGE record description, in- 
cluding REDEFINES, OCCURS, and COPY. Each WORKING-STORAGE record-name (01 
level) must be unique since it cannot be qualified by a file-name. Subordinate 


data-names need not be unique if they can be made unique by qualification. 
Initial Values 


The initial value of any item in the WORKING-STORAGE SECTION is specified by 
using the VALUE clause of the record description. If VALUE is not specified, 
the initial values are set to 4-bit zeros (COMPUTATIONAL). The initial value 


of any index data item is unpredictable. 
Condition-Names 


Any WORKING~STORAGE item may be a conditional variable with which one or more 
condition-names are associated. Entries defining condition-names must immed- 
iately follow the conditional variable entry. Both the conditional variable 


entry and the associated condition-name entries may contain VALUE clauses. 


Coding the WORKING-STORAGE SECTION 


Figure 6-9 illustrates the coding of the WORKING-STORAGE SECTION, 


BURROUGHS COBOL CODING FORM 
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Figure 6-9. WORKING-STORAGE SECTION Coding 


SECTION / 


PROCEDURE DIVISION 


GENERAL 


The fourth part of the COBOL source program is the PROCEDURE DIVISION. This 
division contains the procedures needed to solve a given problem. These pro- 
cedures are written as sentences which may be combined to form paragraphs, 
which in turn may be combined to form sections. The purpose of the following 


discussion is to explain this division and its elements. 
RULES OF PROCEDURE FORMATION 


A procedure is composed of a paragraph, a group of successive paragraphs, a 
section, or a group of successive sections within the PROCEDURE DIVISION. If 
declaratives are specified, then sections must be used in the remainder of 
the PROCEDURE DIVISION. A procedure-~name is either a paragraph-name or a 


section~name, 


The end of the PROCEDURE DIVISION (the physical end of the program) is that 
physical position in a COBOL source program after which no further procedures 


appear. 


paragraphs. A section ends immediately before the next section-name, at 
the end of the PROCEDURE DIVISION, or in the Declaratives portion of the 
PROCEDURE DIVISION at the key words END DECLARATIVES, 


A paragraph consists of a paragraph-name followed by one or more successive 
sentences. A paragraph ends immediately before the next paragraph-name or 
section-name or at the end of the PROCEDURE DIVISION, 


A sentence consists of one or more statements and is terminated by a period 


followed by a space. 


A statement is a syntactically valid combination of words and symbols begin- 
ning with a COBOL verb. 


The term "identifier" is defined as the word or words necessary to make 


unique reference to a data item. 


EXECUTION OF PROCEDURE DIVISION 


Execution begins with the first statement of the PROCEDURE DIVISION, excluding 
declaratives. Statements are then executed in the order in which they are pre- 


sented for compilation, except where the rules in this section indicate some 
other order, 


The body of the PROCEDURE DIVISION must conform to the following format: 
PROCEDURE DIVISION. 


| DECLARATIVES. 

section-name SECTION. declarative-statement. 
paragraph-name. [statement. | 

[paragraph-name. [statement.] ... ] 


[section-name SECTION. declarative-statement. 
paragraph-name. [statement. | 


[paragraph-name. [statement.] ...] ... ] 


END DECLARATIVES, | 
[[ section-name SECTION [priority-number] . ] 
paragraph-name. [statement. | 


{ [paragraph-nane., | sie Tetatenent,]- - icc ) 234 | ae 
[ END-OF-JOB. ] 


STATEMENTS 


STATEMENTS 


There are three types of statements: imperative statements, conditional 


statements, and compiler-directing statements. 
Imperative Statements 


An imperative statement is any statement that is neither a conditional state- 
ment nor a compiler-directing statement. An imperative statement may consist 
of a sequence of imperative statements, each possibly separated from the next 
by a separator. A single imperative statement is made up of a verb followed by 
its operand. A sequence of imperative statements may contain either a GO TO 
statement or a STOP RUN statement which, if present, must appear as the last 


imperative statement of the sequence. Some of the imperative statements are: 


ACCEPT DISPLAY MOVE SEEK 

ADD(1) DIVIDE(1) MULTIPLY (1) SET 

ALTER EXAMINE OPEN SORT 

CLOSE EXIT PERFORM STOP 

COMPUTE (1) GO READ(3) (2) SUBTRACT(1) 
MERGE WAIT 


WRITE(2) (4) 
Conditional Statements 


A conditional statement specifies that a truth value of a condition is to be 
determined and that the subsequent action of the object program is dependent on 
this truth value. A conditional statement is (1) an IF or SEARCH statement, (2) 
a READ or RETURN statement that specifies the AT END phrase, (3) a READ or WRITE 
statement that specifies the INVALID KEY phrase, (4) a WRITE statement that 
specifies the END-OF-PAGE phrase or (5) the arithmetic statements ADD, SUBTRACT, 
COMPUTE, DIVIDE, or MULTIPLY that specify the optional phrase ON SIZE ERROR. 

For example, the IF statement syntax is as follows: 


statement~1 : 
NEXT SENTENCE ; 


statement-2 


IF conditional | ELSE {NEXT SE RUTERee || 


Statement~1 or statement-2 can be either imperative or conditional statements. 
If conditional, the statement can, in turn, contain conditional statements to 
a depth of 15. Also, if statement~-1l or statement-2 is conditional, then the 


conditions within the conditional statement are considered to be "nested". 
Compiler—Directing Statements 


A compiler-directing statement is one that consists of a compiler-directing 
verb (COPY and NOTE) and its operand(s). 


1 Without the SIZE ERROR Option. 3 Without the AT END Option. 
2 Without the INVALID KEY Option. 4 Without the EOP Option. 


SENTENCES 


There are three types of sentences: imperative sentences, conditional sen- 
tences, and compiler-directing sentences. A sentence consists of a sequence 
of one or more statements, the last of which is terminated by a period. 


Imperative Sentences 


An imperative sentence is one or more imperative statements terminated by a 
period. An imperative sentence can contain either a GO TO statement or a STOP 
RUN statement which, if present, must be the last statement in the sentence. 


The following are examples of an imperative sentence, 

ADD MONTHLY~SALES TO TOTAL-SALES, THEN GO TO PRINT-TOTAL. 
or 

DISPLAY ''PGM~END" THEN STOP RUN. 


Conditional Sentences 


A conditional sentence is a conditional statement which may optionally contain 
an imperative statement and must always be terminated by a period. 


Examples: 


IF HEIGHT IS GREATER THAN SIX-FEET-NINE GO TO 
TALL-~MEN, ELSE ADD 1 TO SOME-OTHER, GO GET-~ANOTHER- 
RECORD, 


IF SALES IS EQUAL TO BOSSES-QUOTA THEN MOVE SALESMAN 
TO HONOR-ROLL OTHERWISE MOVE SALESMAN TO QUOTA- 
LIST. 


Compiler-Directing Sentences 


A compiler-directing sentence is a single compiler-directing statement termin- 
ated by a period, 


Example: 


SCAN. COPY SCANER. 


Sentence Punctuation 
The following rules apply to the punctuation of sentences: 
a. A sentence is terminated by a period followed by a space. 
b. A separator is a word or character used for the purpose of enhancing 


readability. The use of a separator (other than a space) is optional. 


c. The allowable separators are spaces, the semicolon (;), the comma 
(.), and the reserved word THEN. 


d. Separators may be used in the following places: 
1, Between statements. 
2. In a conditional statement. 
(a) Between the condition and statement-l, 


(b) Between statement-1 and ELSE, 


€. A separator(other th 
space but is not requ toe ee. Re oon 


Execution of imperative Sentences 


An imperative sentence is executed in its entirety and control is passed to 


the next applicable procedural sentence. 
Execution of Conditional Sentences 
In the conditional sentence: 


OTHERWISE | 


ELSE statement-2. 


IF condition statement~1 | 


the condition is an expression which is TRUE or FALSE, If the condition is 
TRUE, then statement-1 is executed and control is then implicitly transferred 
to the next sentence unless statement-1 causes some other transfer of control. 
If the condition is FALSE, statement-2 is executed and control passes to the 


next sentence unless statement-2 causes some other transfer of control. 


If statement~1 is conditional, then the conditional statement must be the last 
(or only) statement comprising statement~-1l. For example, the conditional sen- 


tence would then have the form: 


IF condition-1l imperative-statement-1l IF condition-2 


= OTHERWISE | _ OTHERWISE = 
statement73 (are statement~4 | ELSE | statement-2., 


SENTENCES 


If condition-1 is TRUE, imperative-statement-1 is executed, If condition-2 

is TRUE, statement-~3 is executed and control is transferred to the next sen- 
tence. If condition-2 is FALSE, statement-4 is executed and control is trans~ 
ferred to the next sentence. If condition-1l is FALSE, statement-2 is executed 
and control is transferred to the next sentence. Statement-3 can in turn be 
either imperative or conditional and, if conditional, can in turn contain con 
ditional statements to an arbitrary depth. In an identical manner, statement-—4 
can either be imperative or conditional, as can statement~2. The execution of 
the phrase NEXT SENTENCE causes a transfer of control to the next sentence 
written in order, except when it appears in the last sentence of a procedure 


being PERFORMed, in which case control is passed to the return control. 
Execution of Compiler-Directing Sentences 


The compiler-directing sentences direct activities during compilation time. 

On the other hand, procedural sentences denote action to be taken by the object 
program. Compiler-directing sentences may result in the inclusion of routines 
into the source program. They do not directly result in either the transfer 

or passing of control. The routines themselves, which the compiler~directing 
sentences may have included in the source program, are subject to the same 
rules for transfer or passing of control as if those routines had been created 


from procedural sentences only. 


CONTROL RELATIONSHIP BETWEEN PROCEDURES 


CONTROL RELATIONSHIP BETWEEN PROCEDURES 


In COBOL, imperative and conditional sentences describe the procedure that is 
to be accomplished. The sentences are written successively, according to the 
rules of the coding form (section 3), to establish the sequence in which the 
object program is to execute the procedure. In the PROCEDURE DIVISION, names 
are used so that one procedure can reference another by naming the procedure 
‘to be referenced. In this way, the sequence in which the object program is 


to be executed may be varied simply by transferring control to a named pro- 


eadura 
BWA \ 


In procedure execution, control is transferred only to the beginning of a 
paragraph or section. Control is passed to a sentence within a paragraph only 
from the sentence written immediately preceding it. If a procedure is named, 
control can be passed to it from any sentence which contains a GO TO or PERFORM, 


followed by the name of the procedure to which control is to be transferred. 


Paragraphs 


So that the source programmer may group several sentences to convey one idea 
(procedure), paragraphs have been included in COBOL. In writing procedures 

in accordance with the rules of the PROCEDURE DIVISION and the requirements 

of the coding form (section 3), the programmer begins a paragraph with a 

name. The name consists of a word followed by a period, and the name pre- 
cedes the paragraph it names. A paragraph is terminated by the next paragraph- 


named is a 


LV SOL r optional special 
last card in the source program the 


ject program. 


Programs may contain identical paragraph-names, provided they are resident in 
different sections. If such paragraph-names are not qualified when used, the 
current section is assumed, Paragraph-names may be used in GO, PERFORM, and 
ALTER statements. 


Sections 


A section consists of one or more successive paragraphs and must be named when 
designated. The section-name is followed by the word SECTION, a priority num- 
ber which is optional, and a period, If the section is a DECLARATIVE section. 
then the DECLARATIVE sentence (i.e., USE or COPY) follows the section header 
and begins on the same line, Under all other circumstances, a sentence may 


not begin on the same line as a section-name, The section-name applies to all 


CONTROL RELATIONSHIP BETWEEN PROCEDURES 


paragraphs following it until another section-name is found. It is not re- 
quired that a program be broken into sections, but this technique is exception-~ 
ally useful in trimming down the physical size of object programs by stating a 
priority number to declare overlayable program storage (see SEGMENT CLASSIFI- 
CATION). 


Since paragraph~names and section~names both have the same designated position 
on the reference format (i.e., position A), section-names, when specified, are 
written on one line followed by a paragraph .name on a subsequent line. When 
PERFORM is used in a non-DECLARATIVE procedural section to call another section. 
the same rules apply as when PERFORM is used in a DECLARATIVE section. 


SEG MENTATION 


SEGMENTATION 


COBOL segmentation is a facility that provides a means to specify object pro- 
gram overlay requirements. COBOL segmentation deals only with segmentation 
of procedures. As such, only the PROCEDURE DIVISION and the ENVIRONMENT 
DIVISION are Gonsidered in determining segmentation requirements for an ob- 
ject program. 


Program Segments 


Although it is not mandatory, the PROCEDURE DIVISION for a source program may 
yritten aS a consecutive group of sections, each of which are operations 
that are designed to collectively perform a particular function. Each section 
must be classified as belonging either to the fixed portion or to one of the 
independent segments of the object program. Segmentation in no way affects 


the need for qualification of procedure-names to ensure uniqueness. 


The object program is composed of two types of segments: a fixed segment and 


overlayable segments. 


a. The fixed segment is the main program segment and may be overlaid in 

he same manner as if it were an overlayable segment. 

b. An overlayable segment is a segment which, although logically treated 
as if it were always in memory, can be overlaid, if necessary, to 
optimize memory utilization. However, such a segment, if called for 
by the program, is always made available in its "initial state when 
the segment priority~number is 50 or greater. When the segment prior- 
ity~number is 49 or less, the segment will be made available in its 


last~used state. 


In addition, depending on availability of memory, the number of permanent seg- 
ments in the fixed and overlayable portions can be varied by changing the 
SEGMENT-LIMIT clause in the OBJECT-COMPUTER paragraph. 


Segment Classification 


Sections which are to be segmented are classified by means of a system of 


priority numbers and the following criteria: 


a. Logic requirements: sections with priority numbers from 00 through 
49 in a program may reside in the fixed segment, depending on the 
value specified in SEGMENT-LIMIT. Sections containing a priority 
number lower than that specified in SEGMENT-LIMIT, regardless of 


their physical location in the program, will be assigned to the fixed 


segment; all other sections will be assigned as overlayable segments. 
"Fali-through" control from one SECTION to another SECTION is accom~ 


plished in their order of appearance in the source program, 


b. Relationship to other sections: sections coded within the SEGMENT- 
LIMIT range will become the fixed segment and can communicate freely 
with each other. Those coded outside the stated SEGMENT-LIMIT range 
fall into the overlayable category and can also communicate from one 
to the other. 


The compiler will create one program segment which will include all 
sections with priority numbers below the value specified in SEGMENT- 
LIMIT. The overlayable sections will be called into memory as needed 
by the program, When memory is available, more than one overlayable 
section will be in memory at the same time. This will reduce the 
number of disk accesses, which in turn will cause the program to have 


a shorter run time. 
Priority Numbers 


Section overlay classifications are accomplished by means of a system of 
priority numbers, The priority number is included in the section header. The 


general construct of a section header is as follows: 
sect ion~name SECTION priority~number. 


The priority number must be an integer ranging in value from 00 through 99 
(also 0. 1, 2, etc., are permissible priority numbers). If the priority num 
ber is omitted from the section header, the priority number is assumed to be 0. 
Segments with priority numbers ranging from 0 up to, but not including, the 
value specified in the SEGMENT-LIMIT clause (or 50 if no SEGMENT-LIMIT clause 
has been specified) are considered as being located in the fixed portion of the 
object program. Segments with priority number equal to or higher than the 
value specified in SEGMENT-LIMIT (but not exceeding 99) are independent seg- 
ments and fully ALTERable; however, segments with priority numbers greater 
than 49 will be made available in their "initial" state each time they are 
referenced. A GO TO paragraph in a section whose priority is greater than or 
equal to 50 must not be referred to by an ALTER statement in a section with a 
different priority. Sections in DECLARATIVES are assumed to be OO and must 

not contain priority numbers in their section headers. Priority numbers may 

be stated in any sequence and need not be in direct sequence. The fixed seg- 
ment does not end when the first priority number equal to or greater than 
SEGMENT~LIMIT is encountered. 
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All segments, regardless of their physical location in the source program, 
whose priority number is less than that which is specified in SEGMENT-LIMIT 
will be "gathered" into a single segment. All other segments equal to or 
greater than that which is specified in SEGMENT-LIMIT will be "gathered" in- 
to overlayable segments according to equal priority number, regardless of 


their physical location in the source program. 


The use of the "gathering" technique will allow programmers to create tailored 


segments which will reduce disk access times. For example: 
Program A: SEGMENT-LIMIT equals 17. 


Non~Gathered 


segment Description size in Digits 

00-16 Main body of the program 4,000 
17 Used frequently 1, 000 
18 Used frequently 5, 000 
19 Used infrequently 4,000 
20 Used at EOJ only 500 
21 Used frequently 2,000 
22 Used at BOJ only 1,000 
23 Used frequently 500 
24 Used for infrequent test 1, 500 
25 Used infrequently 3,000 

Gathered 

segment Description Size in Digits 

00-16 Main body of the program 4,000 
ig Used frequently 1,000 
18 Used infrequently 5,000 
19 Used infrequently 4,000 
20 Used at EOJ 500 
17 Used frequently (was segment 21) 2.000 
19 Used at BOJ (was segment 22) 1,000 
7 Used frequently (was segment 23) 500 
20 Used for infrequent test (was segment 24) 1, 500 
20 Used infrequently (was segment 25) 3.000 


Results of Gathering 


segment Description Size in Digits 
00-16 Main body of the program 4,000 

17 Used frequently 3,500 

18 Used infrequently 5, 000 

19 Used infrequently 5, 000 

20 Used infrequently 5,000 


"Fall through" will be performed in the sequence as outlined in the above 
"Non-Gathered" example, and not as they appear in the "Results of Gathering" 
example above, therefore preserving the logical integrity of the original 


program. 


The COBOL interpreter will automatically check to see if an overlay being 
called for by an object program is already present in memory. If it is 
present, no disk access is required and the program is not interrupted. If it 
is not present, the COBOL interpreter interrupts the program and will access 
the disk for the desired overlayable portion of the program. The COBOL inter~ 
preter uses overlay segments directly from the program library where the ob- 
ject program was compiled to and is called in as an overlay in its initial 
generated code each and every time it is required by the operating program. 
Although the initial code is retrieved each time, the latest addresses of 
ALTERed exits are still applicable and are in force by the use of an automatic 


ALTER table for segments with a priority number of 49 or less. 


DECLARATIVES 


DECLARATIVES 


Declaratives are procedures which operate under the control of the input- 
output system. Declaratives consist of compiler-directing sentences and their 
associated procedures. Declaratives, if used, must be grouped together at the 
beginning of the PROCEDURE DIVISION. The group of declaratives must be prem 
ceded by the key word DECLARATIVES, and must be followed by the words END 
DECLARATIVES, Each DECLARATIVE consists of a single section and must conform 
to the rules for procedure formation. There are two statements that are 
called declarative statements in the COBOL compiler. These are the USE and 
the COPY statements. The next source statement following the END DECLARATIVES 


statement must be a section-name or paragraph-name. 
USE Declarative 


A USE declarative is used to supplement the standard procedures provided by 

the input-output system. The USE sentence immediately following the section- 
name, identifies the condition calling for the execution of the USE procedures. 
Only the PERFORM statements may reference all or part of a USE section. The 
USE sentence itself is never executed, Within a USE procedure. there must be 
no reference to the main body of the PROCEDURE DIVISION. The construct for the 


USE declarative is as follows: 


section-name SECTION. | As) ey Gener re ne ee 


paragraph-name. First procedure~statement... 
Complete rules for writing the formats for USE are stated under the USE verb. 
COPY Statement as a Declarative 


A COPY declarative is used to incorporate a DECLARATIVE library routine in 
the source program, that is, a routine which is a USE declarative. The con- 


struct of the COPY declarative is: 
section-name SECTION. COPY library~name 


Complete rules for writing the format for COPY are stated under the COPY verb. 
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ARITHMETIC EXPRESSIONS 


An arithmetic expression is an algebraic expression which is defined as: 
a. An identifier of a numeric elementary item. 


b. A numeric literal. 


c. Such identifiers and literals separated by arithmetic operators. 
d. Two arithmetic expressions separated by an arithmetic operator. 
e. An arithmetic expression enclosed in parentheses. 


Any arithmetic expression may be preceded by a unary + or -. The permissible 
combinations of identifiers, literals, and arithmetic operators are given in 
table 7-1. Those identifiers and literals appearing in an arithmetic expres~ 
sion must represent either numeric elementary items or numeric literals on 


which arithmetic operation may be performed. 


Table 7-1. Combination of Symbols in Arithmetic Expressions 


Section Symbol 


unary 
Variable */**K4- | + Or - ( ) 


NOTE 


Variable 

* JK + 
unary + or - 
( 

) 


In the above table, the letter "P" represents 
a permissible pair of symbols. The character 
"="""represents an invalid character pair. Vari- 


able represents an identifier or literal. 


Arithmetic Operators 


There are five arithmetic operators that may be used in arithmetic expressions. 
These operators, listed below, are represented by specific characters which 


must be preceded by a space and followed by a space. 
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Character Meaning 
+ addition 


= subtraction 


* multiplication 
division 
a exponentiation 


Formation and Evaluation Rules 


Parentheses may be used in arithmetic expressions to specify the order in 
which elements are to be used. Expressions within parentheses are evaiuated 
first and, within a nest of parentheses, evaluation proceeds from the least 
inclusive set to the most inclusive set. When parentheses are not used or 
parenthesized expressions are at the same level of inclusiveness, the follow- 


ing hierarchical order of operations is implied: 


Unary + or — 
* > 
* and / 


+ and - 


Parentheses have a precedence higher than any of the operators and are used 
to eliminate ambiguities in logic where consecutive operations of the same 
hierarchical level appear, or to modify the normal hierarchical sequence of 
execution in formulas where it is necessary to have some deviation from the 
normal precedence. When the sequence of execution is not specified by paren- 


same hierarchi- 


theses, the order of execution of consecutive operations of the 
cal level is from left to right. Thus, expressions ordinarily considered to 
be ambiguous, e.g., A/B*C, A/B/C, and A**B*¥*C are permitted in COBOL. 
They are interpreted as if they were written (A / B) * C, (A / B) / C. and 


(A**B) **C, respectively. Without parenthesizing. the following example: 
A+B/C+ D** E* F-G 

would de interpreted as: 
A+ (B / C) + ((D ** E) * F) - G 


with the sequence of operations working from the innermost parentheses toward 
the outside, i.e., first exponentiation, then multiplication and division, and 


finally addition and subtraction. 


ARITHMETIC EXPRESSIONS 


The way in which operators, variables, and parentheses may be combined in an 


arithmetic expression is summarized in table 7-1. 


An arithmetic expression may only begin with the symbols (, +, 7, ora 
variable and may only end with a ) or a variable. There must be a one-to-one 
correspondence between left and right parentheses of an arithmetic expression 
such that each left parenthesis is to the left of its corresponding right 
parenthesis. 


CONDITIONS 


A condition causes the object program to select between alternate paths of 
control, depending upon the truth value of a test. Conditions are used in IF 


and PERFORM statements. A condition is one of the following: 
a. Relation condition. 
b, Class condition. 


om Condition~name condition. 


oF 
tf! 
3 


e, NOT condition. 


AND 


Ts Condition iar 


| condition. 

The construction NOT condition is not permitted if the condition itself con- 
tains NOT. 

Logical Operators 


Conditions may be combined by logical operators. The logical operators must 
be preceded by a Space and followed by a space. The meaning of the logical 
operators is as follows: 


Logical Operator Meaning 
OR Logical Inclusive OR 
AND Logical Conjunction 
NOT Logical Negation 


Table 7-2 indicates the relationships between the logical operators and condi-~ 
tions A and B. Table 7-3 indicates the way in which conditions and logical 


operators may be combined. 
Relation Condition 


A relation condition causes comparison of two operands, each of which may be 
a data~name, a literal, or an arithmetic expression (formula). Comparison 
of two elementary numeric items is permitted, regardless of the individual 
USAGE clauses. However, for all other comparisons, the operands must have 
the same USAGE. Group numeric items are defined to be alphanumeric. It is 


not permissible to compare an index-data~name to a literal or a data~name, 


Table 7-2. Relationship of Conditions, 
Logical Operators, and Truth Values 


CONDITION CONDITION AND VALUES 


A AND B A OR B NOT A 


Table 7-3. Combinations of Conditions 
and Logical Operators 


SECOND 
SYMBOL 


NOTE 


The letter "P" represents a permitted pair 
of symbols, and the character "~" repre- 


sents an invalid character pair. 
The general format for a relation condition is as follows: 


data-name~1 data-name-2 

literal-1l relational-operator literal-2 

arithmetic~expression~1 arithmetic~expression-2 
The first operand, data~name-1, literal-l, or arithmetic-expression-1 is 
called the subject of the condition. The second operand, data~name-2, 
literal-2, or arithmetic-expression-2 is called the object of the condition. 
The object and the subject may not both be literals. 


* Permissibie only if the condition itself is not a "NOT condition". 


CONDITIONS 


Relational Operators 


The relational operators specify the type of comparison to be made in a rela- 
tion condition. The relational operators must be preceded by a space and 


followed by a space. Relational operators are: 
IS [NOT] GREATER THAN. 
IS [NOT] LESS THAN, 


IS [NOT] EQUAL TO. 


[NOT | >. 
Is [NOT] <. 
[ 


NOT] =. 


Comparison of Operands 


Non-Numeric. For non-numeric (byte) operands, a comparison will result when 

determination is made that one operand is less than, equal to, or greater than 
the other with respect to a specified internal collating sequence of ch t 
The size of an operand is the total number of characters in the operand. Non- 
numeric operands may be compared only when their USAGE is the same, implicitly 


or explicitly. There are two cases to consider: 


i If the operands are of equal size, characters in corresponding 
character positions of the two operands are compared starting from 
the high-order end through the low-order end. If aii pairs of char- 
acters compare equally through the last pair, the operands are con- 
Sidered equal when the low-order end is reached. The first pair of 
unequal characters to be encountered is compared to determine their 
respective relationship. The operand that contains the character 
that is positioned higher in the internal collating sequence is con- 


sidered to be the greater operand. 


b. If the operands are of unequal size, the comparison of characters 
proceeds from high-order to low-order positions until a pair of un- 
equal characters is encountered. or until one of the operands has no 
more characters to compare. If the end of the shorter operand is 
reached and the remaining characters in the longer operand are spaces. 


the two operands are considered to be equal. 


Numeric. For operands that are numeric. a comparison results in the deter- 

mination that one of them is less than, equal to. or greater than the other 

with respect to the algebraic value of the operands. The length of the oper~ 
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ands, in terms of number of digits, is not significant. Zero is considered 
a unique value regardless of the sign. Comparison of these operands is per- 
mitted regardless of the manner in which their usage is described. Unsigned 


numeric operands are considered positive for purposes of comparisons. 


The signs of signed numeric operands will be compared as to their algebraic 


value of being plus (highest) or minus (lowest). 
Sign Condition 


The sign condition determines whether or not the algebraic value of a numeric 
operand is less than, greater than, or equal to 0. The general construct for 
a Sign condition is as follows: 


POSITIVE 
ZERO 


arithmetic-expression Is [NOT] fxecarive 


An operand is positive if its value is greater than zero, negative if its 


value is less than zero, and zero if its value is equal to zero. 


Class Condition 


The class condition determines whether the operand is numeric; that is, 
consists entirely of the characters 0, l, 2, 3, -», 9, With or without an 
operational sign, or alphabetic, that is, consists entirely of the characters 


A, B, C, ..., 4, and space. The general construct for the class condition is 
as follows: 


identifier IS [NOT] 


{NUMERIC 
ALPHABETIC 


The usage of the operand being tested must be described, implicitly or ex- 
plicitly, as DISPLAY. 


The NUMERIC test cannot be used with an item whose record description de- 
scribes the item as alphabetic. If the record description of the item being 
tested does not contain an operational sign, the item being tested is de- 


termined to be numeric only if the contents are numeric and an operational 
Sign is not present, 


The ALPHABETIC test cannot be used with an item whose record description 

describes the item as numeric. The item being tested is determined to be 
alphabetic only if the contents consist of any combination of the alpha- 

betic characters A thru Z and the space. 


CONDITIONS 


Condition-Name Condition 


In a condition-name condition, a conditional variable is tested to determine 
whether or not its value is equal to one of the values associated with a 
condition-name. The general construct for the condition~name condition is as 


follows: 
[NOT] condition-name 


If the condition-name is associated with a range or ranges of values, then 
the conditional variable is tested to determine whether or not its value 


falls in this range, including the end values. 


The rules for comparing a conditional variable with a condition-~name value 


are the same as those specified for relation conditions. 


The result of the test is TRUE if one of the values corresponding to the 


condition-name equals the value of its associated conditional variable. 
Evaluation Rules 


The evaluation rules for conditions are analogous to those given for arith- 


metic expressions, except that the following hierarchy applies: 
a. Arithmetic expressions (formulas). 


b. All relational operators. 


om NOT, 
d. AND, 
e, OR. 


Simple Conditions 


Simple conditions, as distinguished from compound conditions, are subaivided 
into four general families of conditional tests: Relation Tests, Relative 
Value Tests, Class Tests, and the Conditional Variable Tests. A detailed ex- 
planation of each of these can be found at the beginning of this subsection 


(title: Conditions). 
Compound Conditions 


The most common construct of a compound condition is: 


simple-condition~1 (ann simple~condition-2 
ee | AND simple-conditio Sa 
OR ee OR p n J 


Simple conditions can be combined with logical operators, according to speci- 
fied rules, to form compound conditions. The logical operators AND, OR, and 
NOT are shown in table 7-2, where A and B represent Simple conditions. Thus, 
if A is TRUE and B is FALSE, then the expression A AND B is FALSE, while the 
expression A OR B is TRUE. 


The following are illustrations of compound conditions: 
a. AGE IS LESS THAN MAX-AGE AND AGE IS GREATER THAN 20. 


b. AGE IS GREATER THAN 24 OR MARRIED. 
c. STOCK-ON-HAND IS LESS THAN DEMAND OR STK-SUPPLY IS 
GREATER THAN DEMAND + INVENTORY. 


d. A IS EQUAL TO B, AND C IS NOT EQUAL TO D, OR E IS NOT 
EQUAL TO F, AND G IS POSITIVE, OR H IS LESS THAN I * J. 


e, STK-ACCT IS GREATER THAN 72 AND (STK-NUMBER IS LESS 
THAN 100 OR STK-~NUMBER EQUAL TO 76920). 


Note that it is not necessary to use the same logical connective throughout. 
The rules for determining the logical (i.e., truth) value of a compound condi- 
tion are as follows: 


a. If AND is the only logical connective used, then the compound 
condition is TRUE if, and only if, each of the simple conditions is 
TRUE. 


b. If OR is the only logical connective used, then the compound 
condition is TRUE if, and only if, one or more of the simple condi- 
tions is TRUE. 


CONDITIONS 


c. If both logical connectives are used, then the conditions are grouped 
first according to AND, proceeding from left to right, and then by OR, 
proceeding from left to right. 


Parentheses may be used to indicate grouping as specified in the examples 
below. Parentheses must always be paired the same as in algebra, i.e., the 
expressions within the parentheses will be evaluated first. In the event that 
nested parenthetical expressions are employed, the innermost expressions within 
parentheses are handled first. Examples of using parentheses to indicate 


grouping are: 
a. To evaluate Cl AND (C2 OR NOT (C3 OR C4)), use the first part of 


rule c above and successively reduce this by substituting as follows: 


Let CS equal ''C3 OR C4", resulting in 
C1 AND (C2 OR NOT C5) 


Let C6 equal "C2 OR NOT C5", resulting 
in Cl AND C6 


This can be evaluated by referencing table 7-2. 


b. To evaluate Cl OR C2 AND C3, use the second part of rule c and 
reduce this to Cl OR (C2 AND C3), which can now be reduced as in 


example a, 


c. To evaluate C1 AND C2 OR NOT C3 AND C4, group first by AND from left 


to right, resulting in: 
(Cl AND C2) OR (NOT C3 AND C4) 
which can now be evaluated as in example a. 


dad. To evaluate Cl AND C2 AND C3 OR C4 OR CS AND C6 AND C7 OR C8, group 
from the left by AND to produce: 


((Cl AND C2) AND C3) OR C4 OR ((C5 AND C6) 
AND C7) OR C8 


which can now be evaluated as in example ag. 
e. The following uses a condition-name as part of the statement. 


IF CURRENT-MONTH AND DAY = 15 OR 30... would 


be treated as: 


tl 


IF (CURRENT-MONTH AND DAY 


actual test desired is: 


15) OR 30... the 


il 


IF CURRENT-MONTH AND (DAY 1D OR: 30) 


CONDITIONS 


The required result is that CURRENT-MONTH must be true and DAY must 


contain either 15 or 30. 
Without the parentheses as shown, the conditions are: 


1. DAY = 30 or 
2. CURRENT-MONTH is true AND DAY = 15. 


Abbreviated Compound Conditions 


Any relation condition other than the first that appears in a compound condi- 


tional statement may be abbreviated as follows: 


a. The subject, or the subject and relational operator, may be omitted. 
In these cases, the effect of the abbreviated relation condition is 
the same as if the omitted parts had been taken from the nearest 
preceding complete relation condition within the same condition; 


that is, the first relation is a condition and must be complete. 


Ds If. in a consecutive sequence of relation conditions (separated by 
logical operators) the subjects are identical, the relational oper- 
ators are identical and the logical connectors are identical, the 


sequence may be abbreviated as follows: 


1. Abbreviation 1: when identical subjects are omitted in a con- 
secutive sequence of relation conditions. An example of abbre- 


viation 1 would be: 
IF A = B AND = C. 
This is equivalent to IF A = B ANDA = C. 


2. Abbreviation 2: when identical subjects and relational operators 
are omitted in a consecutive sequence of relation conditions. 


An example of abbreviation 2 is: 
IF A = B AND C, 
This is equivalent to IF A = B AND A = C, 


c, As indicated in the previous paragraphs. compound conditions can be 
abbreviated by having implied subjects, or implied subjects and re- 
lational operators, providing the first simple condition is a full 


relation. The missing term is obtained from the last stated relation 
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in the sentence. The following examples further illustrate the abbre- 


viated compound conditions: 
1. IF A =BORC is equivalent to IFA =BORA=C, 


2. IF A < BOR =C ORD is equivalent to IF A < B OR 
A=C ORA=D. 
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INTERNAL PROGRAM SWITCHES 


Every compiled object program contains eight automatically provided program- 
matic switches. Switches SW1 through SW8 are composed of one unsigned digit 


in length and are located in memory locations O through 7 of data segment QO. 


These switches can be referred to in the PROCEDURE DIVISION by the use of the 
reserved words SW1l, SW2...SW8. During execution, each individual switch 
setting can be changed by a MOVE, ADD, SUBTRACT, etc.. For example: 


MOVE O TO SWI. 
ADD 1 TO SW2. 
SUBTRACT 1 FROM SWS. 


Note that SW6 has an effect on the MONITOR DEPENDING....requirement if the 


statement is present. 


The switch memory locations are reserved and operate identically to those of 


the reserved TALLY locations. 
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STATEMENT OPTIONS 


In the statement descriptions that follow, several options appear frequently: 
the ROUNDED option, the SIZE ERROR option, and the CORRESPONDING option. 


In the discussion below, a resultant-identifier is that identifier associated 


with a result of an arithmetic operation. 
Rounded Option 


If after decimal point alignment, the number of places in the fraction of the 
result of an arithmetic operation is greater than the number of places pro- 
vided for the fraction of the resultant identifier, truncation is relative 

to the size provided for the resultant-identifier. When rounding is requested, 


the value returned is (X + 0.5), where X is the original argument. 


When the low-order positions in a resultant-identifier PICTURE are represented 
by the character "P", rounding or truncation occurs relative to the right- 


most integer position for which storage is allocated. 


Size Error Option 


Ef, 8 mal point alignment, the value of a result exceeds the largest 
value that can be contained in the associated resultant-identifier, a size 
error condition exists. The size error condition applies only to the final 
results of an arithmetic operation and does not apply to intermediate results, 
except in the MULTIPLY and DIVIDE statements, in which case the size error 
condition applies to the intermediate results as well. Arithmetic faults such 
as divide by zero will cause program termination if the SIZE ERROR clause is 


not used. 


If the ROUNDED option is specified, rounding takes place before checking for 
size error. When such a size error condition occurs, the subsequent action 


depends on whether or not the SIZE ERROR option is specified: 


a. If the SIZE ERROR option is not specified and a size error condition 
occurs, the values of the resultant-identifier(s) affected will be 
unpredictable. Values of resultant~identifier(s) for which no size 
error condition occurs are unaffected by size errors that occur for 
other resultant-identifier(s) during execution of this operation. 

b. If the SIZE ERROR option is specified and a size error condition 
occurs, then the values of resultant-identifier(s) affected by the 
size errors are not altered. Values of resultant-identifier(s) for 
which no size error condition occurs are unaffected by size errors 


that occur for other resultant-identifier(s) during execution of this 
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operation. After completion of the execution of this operation, the 


statement in the SIZE ERROR option is executed. 


For ADD and SUBTRACT CORRESPONDING, the SIZE. ERROR clause is not 


executed until all of the individual additions or subtractions are 


completed. 


Corresponding Option 


In this discussion, identifier-1 and identifier-2 are identifiers specified 
in a statement containing the CORRESPONDING phrase. 


a. 


Rules for valid identifiers are: 


is 
ae 


3. 


All identifiers must refer to group items. 

Identifiers may be described with or be subordinate to an item 
described with a REDEFINES or OCCURS clause. 

No identifier may have a USAGE of INDEX. 


Data items subordinate to identifier-1 correspond with data items 


Subordinate to identifier-2, if the following rules apply: 


Both data items must have the same data-name. 

All possible qualifiers for the sending item, up to but not 
including identifier-1, must be identical to all possible quali- 
fiers for the receiving item up to but not including identifier-2. 
In an ADD or SUBTRACT statement, only elementary numeric data 
items will be considered. 

In a MOVE statement, the corresponding sending and/or receiving 
data items must be elementary. The class may differ. 

Any item with a level-number of 66 or 88 or with a Data Descrip- 
tion entry containing a REDEFINES, OCCURS, or INDEX clause is not 
considered. Any item subordinate to an item not eligible for 
correspondence will also be ignored. 


FILLER data items are ignored. 


VERBS 


The verbs available for use with the COBOL Compiler are categorized below. 
Although the word IF is not a verb in the English language, it is utilized 
as such in the COBOL language. Its occurrence is a vital feature in the 
PROCEDURE DIVISION. 


a. Arithmetic: 
ADD 
COMPUTE 
DIVIDE 
MULTIPLY 
SUBTRACT 


b, Compiler Directing: 
COPY 
MONITOR 
NOTE 
USE 


c. Data Manipulations: 
EXAMINE 
FORMAT 
MICR-EDIT 
MOVE 


d. Ending: 
STOP 


e. Input-Output: 

ACCEPT 
CLOSE 
CONTROL 
DISPLAY 
OPEN 
READ 
SEEK 
WRITE 
ZIP 


{, Logical Control: 
IF 
WAIT 
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g. Procedure Branching: 


ALTER 
EXIT 

GO 
PERFORM 


h. Sort: 


RETURN 
SORT 


i. Table Manipulation: 


SEARCH 
SET 

j. Debugging: 
er 


Specific Verb Formats 


The specific verb formats, 


together with a detailed discussion of the restricu~ 


tions and limitations associated with each, appear on the following pages in 


alphabetic sequence. 


ACCEPT 


The function of this verb is to permit the entry of low-volume data from the 


console typewriter. 


The construct of this verb is: 


E 


ACCEPT identifier ES ' || 
—— —— mnemonic~name 


This statement causes the operating object program to halt and wait for appro- 
priate data to be entered on the console printer (SPO). The SPO entry will 
replace the contents of memory specified by the identifier. The systems 
operator answers an ACCEPT halt by keying in the following message: 


mix-index AXdata-required 


If a blank appears between the AX and data~required, the blank character will 


be included in the data7streanm. 
The MCP will space fill to the right if the number of characters entered is 
if the number of characters entered is more. 


If mnemonic7~name is used, it must appear in the SPECIAL-NAMES paragraph and 


be equated to the hardware~name SPO. 
The receiving identifier may be a group level entry and cannot be subscripted. 


The maximum number of characters per ACCEPT statement is unlimited. 


Because of the inefficiency of entering data through the 
nique of data transmission should be restricted solely to low-volume input 


data. 


NOTE 


The "<" is a backspace character and is 
not passed by the MCP. 


ADD 


The function of this verb is to add two or more numeric data items and adjust 
the value of the receiving field(s) accordingly. 


The construct of this verb has three options. 


Option 1: 
ADD literai-1l \ literal-2 
emer identifier-1)J ere, oad 
TO 


identifier-m [ ROUNDED | | identifier-n (ROUNDED)... | 


[:ON SIZE ERROR statement-1. [;ELSE statement-2] 
Option 2: 
ADD literal-l | literal-2 literal-3 
oe identifier-1l identifier-2 identi fier“3| ns 


GIVING identifier-m [ROUNDED] [ ,identifier-n [ROUNDED] | 


[ON SIZE ERROR statement-1 


Option 3: 


CORR é aes t Seer eee 
DD con RasouniNel identifier-1 TQ identifier-2 


[ROUNDED] [ON SIZE ERROR statement-1 — 


With Option 1. the value(s) of the operand(s) preceding the word TO will be 
added together and the sum will be added to the existing value(s) of operand(s) 
following the word TO. A resummation does not occur if the value of one of 


the identifiers changes in the process, 

For example, the result of the statement 
ADD: Ay By -C- TOC, DG)y = 

is equivalent to 


ADD A, B, C GIVING TEMP 
ADD TEMP TO C 

ADD TEMP TO D(C) 

ADD TEMP TO E 


where TEMP is an intermediate result item provided by the compiler. 
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In Option 2, the sum of the operands preceding the word GIVING will be in- 


serted as a replacement value of identifier(s) following the word GIVING. 


In Options 1 and 2, the identifiers must refer to elementary numeric items only, 
except that identifiers appearing only to the right of the word GIVING may refer 


to elementary numeric~edited items. 
An ADD statement must have at least two operands. 


That composite of operands, which is the super-imposition of all operands, 
excluding the data item that follows the word GIVING, aligned on their decimal 


points, must not contain more than 125 digits or characters. 


The internal format of operands referred to in an ADD statement may differ 
among each other. Any necessary format transformation and decimal point 


alignment are automatically supplied throughout the calculation. 
Each literal must be a numeric literal. 


If, after decimal point alignment with the receiving data item, the calculated 
result extends to the right of the receiving data item (i.e., an identifier 
whose value is to be set equal to the sum), truncation will occur. 
is always in accordance with the size associated with the resultant identi- 
fier. When the ROUNDED option is specified, it causes the resultant identi- 
fier to have its absolute value increased by 1 whenever the most-Significant 


digit of the truncated portion is greater than or equal to 5. 


Whenever the magnitude of the calculated result exceeds the largest magnitude 
$e 


ere : 
that can be cont r ndition arises 


Z3t0i0n arises. 


92 
WM) 
fede 
N 
c) 
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In the event of a size error condition, one of two possibilities will occur, 
depending on whether or not the ON SIZE ERROR option has been specified. The 
testing for the size error condition occurs only when the ON SIZE ERROR option 


has been specified. 


a. In the event that ON SIZE ERROR is not specified and size error con- 


ditions arise, the value of the resultant identifier is unpredictable. 


b. If the ON SIZE ERROR option has been specified and size error condi~ 
tions arise, then the value of the resultant identifier will not be 
altered. After it has been determined that there is a size error 
condition, the statement-1 associated with the ON SIZE ERROR option 


will be executed. 


If Option 3 is used multiple operations are performed. The operations are exe- 


cuted by the pairing of identical data-names of numeric elementary items subor- 


dinate in hierarchy to identifier-1l and identifier-2. Data-~names match if they, 
and all their possible qualifiers up to, but not including identifier-1 and 
identifier-2, are the same. All general rules pertaining to the ADD verb apply 
to each individual ADD operation. For instance, if the size of matched data- 
names does not correspond, in that the decimal point is out of alignment or 

the sizes differ, the decimal point alignment or truncation takes place accord- 
ing to the rules previously discussed. 


In the process of pairing identical data-~names, any data-name with the 
REDEFINES clause is ignored. Similarly, data-names which are subordinate to 
the subordinate data-names with the REDEFINES clause are ignored. 


NOTE 


This restriction does not preclude 
identifier-1l or identifier-2 from having 
REDEFINES clauses or from being sub- 
ordinate to data-names with REDEFINES 


clauses, 


If the CORR or CORRESPONDING option is used, any item in the group referred 
to which contains an OCCURS clause will be ignored. Any items subordinate to 
such an item will also be ignored. 


In Option 3, if either identifier-1l or identifier-2 is a group item which con- 


tains RENAMES entries, the entries are not considered in the matching of names. 


In Option 3, identifier-1l and identifier-2 must not have a level number of 66, 
77, or 88. 


If corresponding data~names are not elementary numeric items, the ADD operation 
will be ignored. 


In Option 3, CORR is an acceptable substitute for CORRESPONDING. 
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ALTER 


The function of this verb is to modify a predetermined sequence of operations 


by changing the operand of a labeled GO TO paragraph. 


The construct of this verb is: 


ALTER procedure~name~1 TO [ PROCEED To | procedure name~2 


{ procedure~name-3 TO [PROCEED TO | procedure~name-4 nade) 


Procedure~name~1, procedure-name-3, ... are names of paragraphs, each of 

which contains a single sentence consisting of only a GO TO statement as 

defined under Option 1 of the GO TO verb. Procedure-name-2, procedure-name-4, 
are not subject to the same restrictions and they may be either paragraph- 


names or section~names., 


When control passes to procedure~name~1l1, control is immediately passed to 
procedure~name~2 rather than to the procedure~name referred to by the GO TO 
statement in procedure~name-~1, Procedure~name-1 is therefore a "gate" which 


remains set until again referenced by another ALTER statement. 


A GO TO statement in a section whose priority is greater than or equal to 50 
must not be referred to by an ALTER statement in a section with a different 


priority. 


All other uses of the ALTER statement are valid and are performed even if the 
GO TO which the ALTER refers to is in an overlayable section, as long as the 


section priority number is less than 50. 


CLOSE 


The function of this verb is to communicate to the MCP that the designated 
file-name being operated on or created is programmatically completed, and also 
to fulfill the stated action requirements. 


The construct of this verb is: 


CLOSE file-name-1 _ [| REEL | WITH 


NO REWIND 
REMOVE 


[file-name-2...] 


File-names must not be those defined as being SORT files. A file must have 
been OPENed previously before a CLOSE statement can be executed for the file 
File space in memory will not be allocated until the file has been OPENed. 
When a file is programmatically CLOSEd and the assigned unit is released, the 
memory allocated for that file will be returned to the MCP. The MCP I/O as-~ 
signment table reflects any unit which remains assigned to the program after 
the file on that unit has been CLOSEd. 


The above statement applies to the following categories of input and output 
files. 


a. Files whose input and output media involve print files, card files, 
etc. 


b. Files which are contained entirely on one reel of magnetic tape 


and are the only files on that reel. 


c. Files which may be contained on more than one physical reel of 
magnetic tape. Furthermore, the number of reels might possibly be 


higher than the number of physical tape units provided on the system. 


d. Disk files. 


To show the effects of the CLOSE options, each type of file will be discussed 
separately. 


a. Card Input. 


1. CLOSE - does not release the input memory areas or the reader. 


2. CLOSE WITH NO REWIND — same as CLOSE, 


Te 


CLOSE WITH LOCK - same as CLOSE WITH RELEASE. 


CLOSE WITH REMOVE ~ same as CLOSE. 


CLOSE WITH CRUNCH ~ sa 


Card Output. 


1. 


_ CLOSE WITH RB. 
returns the f 


~ CLOSE WITH: PUR 


CLOSE - punches the trailer label (if any) and does not release 


the output memory areas or the punch. 


CLOSE WITH NO REWIND - same as CLOSE. 


CLOSE WITH LOCK - same as CLOSE WITH RELEASE. 


CLOSE WITH REMOVE - same as CLOSE. 


Magnetic Tape Input. 


i. 


6. 


7. 


CLOSE - rewinds the tape and does not reiease the input memory 


areas. The unit remains assigned to the program. 


CLOSE WITH NO REWIND - same as CLOSE except the tape is not 


rewound. 


CLOSE WITH LOCK - releases the input memory areas, rewinds the 


tape, and the MCP marks the unit not ready. 


CLOSE WITH PURGE | = released the. input. memory areas, rewinds. the 
tape, and if a write ring is in the reel, over-writes the label, 
making the tape a scratch tape which becomes a candidate for use 
by the MCP. The unit is returned to the MCP. | | 
CLOSE WITH REMOVE - same as CLOSE. 


CLOSE WITH CRUNCH - same as CLOSE. 


Magnetic Tape Output. 


1. CLOSE - does not release the output memory areas, writes the 
trailer label (if any), and rewinds the tape. The unit remains 


assigned to the program. 


2. CLOSE WITH NO REWIND - does not release the output memory areas, 
writes the trailer label (if any). The tape remains positioned 
beyond the trailer label (or tape mark if there is no trailer 


label). The unit remains assigned to the program. 


3. CLOSE WITH LOCK ~- releases the output memory areas, writes the 
trailer label (if any), rewinds the tape, and the MCP marks the 


unit not ready. 


6. CLOSE WITH REMOVE - same as CLOSE. 


e. Printer Output. 


1. CLOSE - prints the trailer label (if any) and does not release the 


the output memory areas or the printer. 


2. CLOSE WITH NO REWIND - same as CLOSE. 


areas and oe 


4. CLOSE WITH LOCK - same as CLOSE WITH RELEASE. 


6. CLOSE WITH REMOVE - same as CLOSE. 


CLOSE 


f. Disk Files. The actions taken on files ASSIGNED to DISK will be 
discussed in terms of old files and new files. An old file is one 
that already exists on disk and appears in the MCP Disk Directory. 
A new file is one created by the program and does not appear in the 


Directory. <A new file may only be referenced by the program which 
creates it. 


1. CLOSE - does not release the input/output memory areas. 


(a) For an old file, the file is left in the Directory and is 


available to other programs. 


(b) For a new file, the file is not entered in the Directory; 
however, it remains on the disk and may be OPENed again by 


this program. 


2. CLOSE WITH NO REWIND - not permitted on disk files. 


4. CLOSE WITH LOCK - releases the input/output memory areas. 


(a) For an old file, the file remains in the Directory and is 
made available. 


(b) For a new file, the file is entered in the Directory and 


is available to other programs. 


6. CLOSE WITH REMOVE - releases the input/output memory areas. 
This option will cause the MCP to REMOVE a file from the Disk 


Directory that has the same file-id as the file being closed. 


This action will take place prior to entering the closing files 
file-id in the Disk Directory. Use of this option will eliminate 
the DUPLICATE FILE condition and reduce operator intervention. 

If the REMOVE option is not used, the "RM" SPO input message will 


accomplish the same results. 


CLOSE 


If a file has been specified as being OPTIONAL, the standard end-of-file pro- 


cessing is permitted whenever the file is not present. 


If a CLOSE statement without the REEL option has been executed for a file, a 
READ, WRITE, or SEEK statement for that file must not be executed unless an 


intervening OPEN statement for that file is executed. 


The CLOSE REEL option signifies that the file-name being CLOSEd is a multi- 
reel magnetic tape input or output file. The real will be CLOSEd when the 
CLOSE REEL statement is encountered and an automatic OPEN of the next se- 


quential reel of the multi-reel file is then performed by the MCP. 
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COMPUTE 


The function of this verb is to assign to a data item the value of a numeric 
data item, literal, or arithmetic expression. 


The construct of this verb is: 
identifier-2 


COMPUTE identifier-1 [ROUNDED] = literal 
arithmetic expression 


The literal must be a numeric literal, 


Identifier-2 must refer to an elementary numeric item. Identifier-1l may describe 


an elementary numeric edited item. 


The arithmetic expression option permits the use of any meaningful combination 


of identifiers, numeric literals, arithmetic operators, and parenthesization, 
as required. 


Aii rules regarding ON SIZE ERROR, ROUNDED options, truncation and editing are 


the same as for ADD. 


If numeric~literal exponents are used, the results are accurate up to 18 
digits in length and to as many decimal places. 
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COPY 


The function of this verb is to allow library routines contained on a source 


language library file to be incorporated into the program. 
The construct of this verb contains the following two options: 


Option 1: 
COPY library~name 
Option 2: 


COPY library~name 


[ word-1 vor 
REPLACING aa. | BY identifier-2 
| data~name~1 ‘literal-1 [ 
d-3 word-4 
Wace . oer BY identifier-4 nine 
aye ee literal-2 


The COPY statement may refer only to one library entry in the library. Library- 
name is the value placed in a library entry bounded by quotes or a procedure 
name type word. The library entry can contain up to three 10-character non- 
numeric literals each separated by a slash (/), following normal naming 


conventions for disk files. 


The library file is inserted in the source program immediately after the COPY 
statement at compilation time. The result is the same as if the library data 


were actually a part of the source program, 


Library data can encompass an entire procedure, which may be any number of 


statements, paragraphs, or entire source program divisions (or parts thereof). 
Library files may not contain COPY statements. 


No statement may appear to the right of the COPY statement on the same source 
card, 


COPY during the PROCEDURE or ENVIRONMENT divisions must follow a SECTION or 


paragraph-name, and all information contained in the library file is included 
and can be fully referenced. 
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On a COPY during the DATA DIVISION, the FD file-name, or the 01 level data~name 
preceding the COPY is saved and the relative constructs from the library file 


are discarded. For example, the statement 
FD MASTER~INPUT COPY "MASTER". 


will cause the library file titled MASTER to be inserted into the source 
program immediately following the COPY statement. The source program must 
refer to the FD file-name as MASTER-INPUT, not as MASTER. The library FD 
file-name will appear on the output listing, but cannot be referenced in the 


source program, 


Library texts copied from the library are flagged on the output listing by an 
"L" preceding the sequence number. 


In Option 2, a word is defined as being any COBOL word that is not a COBOL 
reserved word. For example, the following statement reflects non-reserved 
COBOL words AAA,BBB and 1234, where AAA and BBB are data-~names and 1234 is a 
COBOL word: 


MULTIPLY AAA BY BBB, THEN GO TO 1234. 


If the COPY REPLACING option is specified, each word~1 or data-name~1 stipulated 
will be replaced by the word-2 or identifier-2 entries specified in the option. 


Data7~names may not be subscripted, indexed, or qualified. 


Use of the COPY REPLACING option requires that the "library-~name" COBOL source 


image file be present on disk, prior to compilation of the source program con7 


? 
tion. The use of this 


taining the COPY REPLACING op option will not cause 
alteration of the library file residing on disk. 


In Option 2, literals contained in a library file cannot be replaced by liter- 
als, words, or identifiers. If a numeric literal is the last entry ina 


replacing list, it must be followed by a blank and then a period. For example: 


COPY BERMAN REPLACING AAA BY HOURS, 
BBB BY PAY-SCALE, 1234 BY 58b. 


The COPY REPLACING option is exceptionally useful for conversion of generalized 
COBOL source~language library routines into specific and well-named routines 
within a given program, For example, a generalized COBOL source-language 


library routine may use the following data-names for the purposes shown, 


Data-name Purpose 
AAA Monthly hours worked per employee. 
BBB Employee pay-rate. 
CCC Employee social security number. 
DDD Employee income tax rate. 
EEE Employee year to date gross income. 
FFF Employee year to date net income, 
GGG Employee gross pay for month. 


Employee net pay for the month. 


1234 Specifies a GO TO exit from the routine, 


A program calling upon the above generalized routine can replace the non- 
descriptive data-names with descriptive names as defined in the program's 
record description or WORKING-STORAGE area. For example: 

COPY...REPLACING AAA BY HOURS-WORKED 

COPY...REPLACING BBB BY RATE-OF-PAY 

COPY...REPLACING CCC BY SOC-SEC-NR 

COPY...REPLACING DDD BY INC~TAX-RATE 

COPY...REPLACING EEE BY YR-TO-DATE-GROSS 

COPY...REPLACING FFF BY YR-TO-DATE-NET 


COPY...REPLACING GGG BY THIS-MONTHS~GROSS 
COPY...REPLACING HHH BY THIS-MONTHS-NET 


COPY. ..REPLACING 1234 BY WRITE-EMPLOYEE~DRAFT, 


The specified source program data~names and exit points will be inserted into 
the library file routine at every occurrence of the assigned generalized names 


within the routine. 


Library Creation. A library file will be created during a COBOL compilation 
each time a source statement is encountered that contains an "L" in column 7 
followed by a library-name on that same image. A library file may contain up 


to a maximum of 20,000 card images. 


Each library file in the source program will be terminated when a source image 
is encountered which contains an "L'' in column 7 followed by all blanks or 


another library-name. 


Once a file has been created, it may be COPYed by other programs, or by the 


creating program in succeeding FD, O1, or procedure COPY statements. 


The source data used to create an original library file will also be compiled 


into the object program at the point of appearance. 


All assigned library~names must be unique to other library-names contained in 
the library, to preserve the integrity of the COBOL library system. 


Library files to be used with the COPY verb can be created by a user program 
which creates a card image file on disk. The compiler will automatically 


accept the blocking used when the file was created. 


Library Maintenance. The COBOL compiler allows several methods for updating 
existing library files. Due to the fact that new source and/or library files 
are created during the initial pass of the compilation, source programs which 
create library files need not be complete COBOL programs. In this manner, 
source programs which create library files may be compiled with patch cards 
to be applied to the library files (as described in Section 11) by use of the 
dollar option MERGE. 


Another method of updating library files is to use the library file as a 
source program rather than a library file. Using the dollar options MERGE 
and NEW to make patches and create a new source file, changes and updates may 


be made. 


Another possible solution to the library file maintenance problem, is to create 


all library files in one source program. This would allow for centralized 


. : ° 
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3 1Anaq «4 al ~ 37 4 AA Awman +a Aw a lo + ¢ ~f au 
iles and also aid in documentation and training of new 


personnel. 


DISPLAY 
The function of this verb is to provide for the printing of low-volume data, 
error messages, and operator instructions on the console typewriter. 


The construct of this verb is: 


literal-1l literal-2 
DISPLAY fea eeeed | el adent ewe o | 


a reece | 
= mnemonic™name 


Each literal may be any figurative constant except ALL. 


All special registers (DATE, TIME, TALLY, SW) ead SW: etc.) may be DISPLAYed. 


The DISPLAY statement causes the contents of each operand to be written on the 
supervisory printer (SPO), from the MCP SPO queue, to ensure that a program is 


not operationally deterred while a message is printing. 


If a figurative constant is specified as one of the operands, only a single 


character of the figurative constant is displayed. 


The identifiers may be subscripted or indexed and can be COMPUTATIONAL or 
DISPLAY items. 


An infinite number of characters may be displayed with one DISPLAY statement. 


The DISPLAY series option will cause the literals or identifiers to be con- 
catenated, printed on one line and, if required, the MCP will cause automatic 
carriage returns and line feeds for information extending to other lines of 


print. 


When mnemonic-name is used, it must appear in the SPECIAL-NAMES paragraph 


equated to the hardware-name SPO. 


DIVIDE 


The function of this verb is to divide one numerical data-item into another 


DIVIDE 


and set the value of an item equal to the result. 


The construct of this verb contains the following two options: 


Option 1: 
(literal-1 me 
DIVIDE fdenkipievert, ohlo identifier-2 [ROUNDED |] 


{literal-1 | (BY | |literal-2 | 


DENTE lidentifier-1) {INTOJ lidentifier-2} 


GIVING identifier-3 [ROUNDED } 


| REMAINDER identifier-4 [ ROUNDED] | 


eee — +! 


[;ON SIZE ERROR statemer 


Identifier-~3 and identifier-4 of Option 2 may refer to elementary numeric- 
edited items. 


Rach literal must be a numeric literal. 


Division by zero is not permissible and, if executed, will result in 
error indication. This can be handled programmatically, either by doing a 
zero test prior to the division or by the use of the SIZE ERROR clause. If 
SIZE ERROR is not written, an attempt to divide by zero will result in pro- 
gram termination. 


All identifiers must refer to elementary numeric items. 


In Option 1, the value of the operand preceding the word INTO will be divided 
into the operand following INTO and the resulting quotient stored as the new 
value of the latter. 


The use of the BY option will cause literal-1l/identifier-1 to be divided by 
literal-2/identifier-2, whereas the INTO option will cause literal-1/ 


identifier-1 to be divided into literal-2/identifier-2. 


In Option 2, the resulting quotient will be stored as the new value of 
identifier-3. The value of the operands immediately to the left of the word 
GIVING will remain unchanged. 


The ROUNDED option and ON SIZE ERROR clause and truncation are the same as 
those discussed for the ADD statement. 


The size of the operands is determined by the sum of the divisor and the 
quotient. The sum of the two cannot exceed 99 digits. 


same degree of accuracy as defined in the PICTURE of the quotient, and all extra 
positions will be filled with zeros. 


Literals cannot be used as dividends. 


The use of the REMAINDER option will cause the remainder to be placed in 


identifier-4, and identifier-3 will contain the quotient. 
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DUMP 
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EXAMINE 


The function of this verb is to replace a specified character, and/or to count 


the number of occurrences of a particular character in a data item, 
The construct of the verb contains the following two options: 
Option 1: 


EXAMINE identifier-1l 


‘ 
literalI-2 | 


ALL acne 
identifier-3} 


TALLYING | EADING identifier-2 


} | REPLACING BY 
‘UNTIL FIRST 


Option 2: 


ALL 
EXAMINE identifier-1 REPLACING LEADING 
[UNTIL] FIRST 


eels 


identifier-4 BY 


eRe 
identirice=5i 
The description of identifier-1 must be such that USAGE is DISPLAY explicitly 


or implicitly. 


Each literal used in an EXAMINE statement must consist of a single DISPLAY 
character. Figurative constants will automatically represent a single DISPLAY 
character. 


Examination proceeds as follows: 


a. For items that are not numeric, examination starts at the 
leftmost character and proceeds to the right. Each 8-bit character 
in the item specified by the data-name is examined in turn. Any 
reference to the first character means the left-most character. 

b. If an item referenced by the EXAMINE verb is numeric, it must consist 
of numeric characters and may possess an operational sign. 
Examination starts at the leftmost character (excluding the sign) 
and proceeds to the right. The low order digit of each character 
except the sign is examined in turn. Regardless of where the sign is 
physically located, it is completely ignored by the EXAMINE verb. 

Any reference to the first character means the leftmost numeric 


character. 


The TALLYING option creates an integral count (i.e., a tally) which replaces 
the value of a special register called TALLY. The count represents the num- 


ber of: 


a. Occurrences of literal-1l or identifier-2 when the ALL option is used. 

b. Occurrences of literal-1 or identifier-2 prior to encountering a 
character other than literal-1l or identifier-2 when the LEADING 
option is used. 

c. Characters not equal to literal-1 or identifier-2 encountered before 
the first occurrence of literal~l or identifier-2 when the UNTIL 


FIRST option is used. 


When either of the REPLACING options is used (i.e., with or without TALLYING), 


the replacement rules are as follows: 


a. When the ALL option is used, then literai-2 or identifier-3 or 
literal-4 or identifier-5 is substituted for each occurrence of 
literal-1 or identifier-2 or literal-3 or identifier-4, 

b. When the LEADING option is used, the substitution of literal-2 or 
identifier-3 or literal-4 or identifier-5 terminates as soon as a 
character other than literal-1l or identifier-2 or literai-3 or 
identifier-4 or the right-hand boundary of the data item is en- 
countered. 

c. When the UNTIL FIRST option is used, the substitution of literal-2 
or identifier-3 or literal-4 or identifier-5 terminates as soon as 
literal-1l or identifier-2 or literal-3 or identifier-4 or the right- 


ig ai £ +h 
j to own 
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e data item is encountered. 


d. When the FIRST option is used, the first occurrence of literal-3 


or identifier-4 is replaced by literal-4 or identifier-5. 


The field called TALLY is a 5-digit field provided by the compiler. Its 
usage is COMPUTATIONAL and will be reset to zero automatically when the 
EXAMINE... TALLY option is encountered. 
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EXIT 


The function of this verb is to provide a terminating point for a PERFORM 


loop, whenever required. 


The construct of this verb is: 
EXIT, 


If the EXIT statement is used, it must be preceded by a paragraph-name and 
appear as a single one-word paragraph. EXIT is documentational only, but if 
used, must follow the rules of COBOL. 


The EXIT is normally used in conjunction with conditional statements contained 
in procedures referenced by a PERFORM statement. This allows branch paths 


within the procedures to rejoin at a common return point. 


If control reaches an EXIT paragraph and no associated PERFORM or USE state- 
ment is active, control passes through the EXIT point to the first sentence 


of the next paragraph. 


GO TO 


The function of this verb is to provide a means of interrupting out of the se- 
quential, sentence by sentence, execution of code, and to permit continuation 


at some other location indicated by the procedure-name(s). 
The construct of this verb has the following two options: 


Option 1: 


GQ TO [procedure-nane ] 


Option 2: 


| procedure-name-1 [, procedure-name-2] ... , procedure~name-3, 
DEPENDING ON identifier 


Each procedure-~name is the name of a paragraph or section in the PROCEDURE 
DIVISION of the program, 


Whenever a GO TO statement (represented by Option 1) is executed, control is 
unconditionally transferred to a procedure~name, or to another procedure- 


name if the GO TO statement has been changed by an ALTER Statement. 


A GO TO statement is unrestricted as to where it branches to in a segmented 
program. It can call upon any segment at either the section level or para- 
graph levels, 

In Option 1, when the GO TO is referred to by an ALTER statement, the follow- 


ing rules apply, regardless of whether or not procedure~name is specified: 
a. The GO TO statement must be the only statement in the paragraph. 


b. If the procedure-~name is omitted, and if the GO TO statement is not 
referenced by an ALTER statement prior to the first execution of the 
GO TO statement, the MCP will cause the job to be terminated. 


If a GO TO statement represented by Option 1 appears in an imperative state- 
ment, it must appear as the only or the ‘last statement in a sequence of im= 


perative statements. 


In Option 2, GO TO... DEPENDING... may specify up to 1023 procedure-names 


in a single statement. The data-name in the format following the wordus 
DEPENDING ON must be a numeric elementary item described without any positions 


to the right of the assumed decimal point. Furthermore, the value must be 


positive in order to pass control to the procedure~names specified. Control 
will be transferred to procedure~name-1l1 if the value of the identifier is l, 
to procedure~name~2 if the value is 2, etc. If the value of the identifier is 
anything other than a positive integer, or if its value is zero, or its value 
is higher than the number of procedure-names specified, control will be passed 


to the next statement in normal sequence. For example: 


GO TO MFG, RE-SALE, STOCK, DEPENDING ON S-O. 


VALUE OF S-O GO TO PROCEDURE-NAME 


next statement 
next statement 
MFG 

RE~SALE 

STOCK 


next statement 


[iF 


IF 
The IF statement causes a condition to be evaluated. The subsequent action of 
the object program depends on whether the value of the condition is true or 


false. 


The construct for the IF statement is as follows: 


Pee ee statement-1 : statement-2 
ae, Conditions ee SENTENCE} E ELSE (NEXT SENTENCE 1 
Statement-1 and statement-2 represent either a conditional statement or an im- 


perative statement, and either may be followed by a conditional statement. 


The semicolons are optional. 


The phrase ELSE NEXT SENTENCE may be omitted if it immediately precedes the 


terminal period of the sentence. 
When an IF statement is executed, the following action is taken: 


a. If the condition is true, the statements immediately following the 
condition (represented by statement-1) are executed, and control then 
passes implicitly to the next sentence unless statement~1 causes some 
other transfer of control. 

b. If the condition is false, either the statements following ELSE are 
executed or, if the ELSE clause is omitted, the next sentence is 


executed, 


When an IF statement is executed and the NEXT SENTENCE phrase is present, con- 
trol passes explicitly to the next sentence, depending on the truth value of 
the condition and the placement of the NEXT SENTENCE phrase in the statement. 


IF statements within IF statements may be considered as paired IF and ELSE 
combinations, proceeding from left to right; thus, any ELSE encountered is 
considered to apply to the immediately preceding IF that has not already 
been paired with an ELSE. 

When control is transferred to the next sentence, either implicitly or ex- 


plicitly, control passes to the next sentence as written or to a return 
mechanism of a PERFORM or a USE statement. 


The method of evaluating conditional expressions allows early exit, once the 


truth value of the expression has been determined. 


UEING #11e-nane- 2 tite-mane-3 f 


, GIVING file-name-5 (ith ] 
Syntax. Rules : | 
: gg Rile-name- “1 must be dese 
ee gatry in the DATA DIVI 


cedure-name-2| | 
RELEASE 


ge file description (SD) 


Procedure-name-1 represent S he name of 


peeelntion! 0) entry, in the DATA prviston. The agtual we ai ae 
2 eee eee for Et ie-nume 2 file- -name-3, file- 


-pRaRER EDL described for file-name-1. If the data descriptions Of. the. 
elementary items that take up. these records are not identical, it is. 
. the programmer's responsibility to describe the corresponding records 


in such a manner so as to cause an equal number of character positions 
to be allocated for the co: yr 


rresponding re 


< the MERGE statement will merge “gly Yeeoeis contained in f 

file-name-3, and file-name-4, The files referenced in 
statement must have been CLOSEd with LOCK or RELEASE prior t 
_ time the MERGE statement is. executed... These. files are automatica e 
» OPENed and CLOSEd by the merge operation with all. implicit functions 
) performed, such as the execution of any associated USE procedures. — 


The terminating function for all files is performed as if a CLOSE 
statement, without optional phrases, had been executed for each file. 


b. The data-names following the word KEY are listed from left to right 
in the MERGE statement in order of decreasing significance without 
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ratements 


of : control. to 


ement. 


coe 


oS doitbee” ae oder of the associated iviput files as. specified ice 
the MERGE statement. _ ) . 


from their ancctive input ae As a result, when .such a. eee 
exists, the output from the MERGE statement will not be in a strict 
ASCENDING or DESCENDING KEY order. 
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MOVE 


The MOVE statement transfers data, in accordance with the rules of editing, 


to one or more data areas. 


The construct for the MOVE statement consists of the following two options: 


Option lL: 

MOVE el aa TO  identifier-2 [, identifier-3] ... 
Option 2: 

MOVE (on identifier-~l TO identifier-2 


Identifier-~1l and literal represent the sending field; identifier-2, 
identifier-3 represent the receiving fields. Literal may be any literal 


or figurative constant consistent with the class of the receiving field. 


Option 1 provides for multiple receiving fields. The data designated by 
the literal or identifier-1i wiil be moved first to identifier-Z, then to 
identifier-3, etc. Subscripting or indexing associated with identifier-1 is 
evaluated only once, immediately before data is moved to the first receiving 


field. The notes referencing identifier-2 also apply to the other areas. 


The result of the 


statement: 
MOVE A(SUB) TO SUB, B(SUB) 
would produce the same result as: 


MOVE A(SUB) TO TEMP. 
MOVE TEMP TO SUB. 
MOVE TEMP TO B(SUB). 


When Option 2 is used, selected items within identifier-1 are moved, with any 
required editing, to selected areas within identifier-2. Identifier-1 and 
identifier-2 must be group items. Items are selected by matching the data- 
names of items defined within identifier-1 with like data-names of areas de- 
fined within identifier-2, according to the rules specified in the discussion 
of the corresponding option. The resulting operation on each of the sets of 


matched data items proceeds as if an Option 1 MOVE had been specified. 


Elementary Moves 


Any move in which the sending and receiving items are both elementary items 
is an elementary move. All other moves are defined as group moves. Every 


elementary item belongs to one of these five categories: 


a. Numeric. 
Numeric Edited. 

c. Alphabetic. 
Alphanumeric. 


Alphanumeric Edited. 


See the PICTURE clause description in section 6 for a detailed discussion of 
these categories. Group items, non-numeric literals, and all figurative con- 
stants, except ZEROS and SPACES, are classed as alphanumeric. Numeric 
literals and the figurative constant ZEROS are classed as numeric. The 


figurative constant SPACES is classed as alphabetic. 


Illegal Elementary Moves. The rules governing illegal elementary moves are 
as follows: 


1. <A numeric-edited item, alphanumeric edited item, SPACES, or an 


alphabetic item cannot be moved to a numeric or numeric edited item. 


2. A numeric literal, ZEROS, a numeric data item, or a numeric edited 


item cannot be moved to an alphabetic data item. 


3. A non-integer numeric literal or a non~integer numeric data item can 


not be moved to an alphanumeric or alphanumeric edited data item. 


Legal Elementary Moves. The rules governing legal elementary moves are as 
follows: 


4. When an alphanumeric or alphanumeric edited item is a receiving 
field, justification and any necessary space filling takes place 
as defined under the JUSTIFIED clause. If the size of the sending 
field is greater than the size of the receiving field, the excess 
characters are truncated on the right after the receiving item is 
filled. 


If the sending field is described as being signed numeric, the 

operational sign will not be moved. If the sign occupies a separate 
character position (KSIGN), that character will not be moved and the 
size of the sending field will be considered to be one less than its 


actual size. 


For example: 
Given these data descriptions: 


77 S PIC K9999. 
77 R PIC X(6). 


Then the statements: 


MOVE -124 TOS. 
MOVE S TO R. 


wili resuit in R being equal to "0124 

Oo. When a numeric or numeric edited item is the receiving field in an 
elementary move and the data in the sending field is not numeric, 
zone bits will be stripped. Alignment by decimal point and any nec~ 
essary zero~filling takes place as defined under the JUSTIFIED 


clause, except where zeros are replaced because of editing require- 


ments. 


When a Signed numeric item is the receiving field, the sign of the 
sending field is placed in the receiving field. Conversion of the 
sign representation takes place as necessary. If the sending field 


is unsigned, a positive sign is generated for the receiving field. 


When an unsigned numeric item is the receiving item, the absolute 
value of the sending item is moved and no operational sign is gen- 


erated for the receiving item. 


When an alphanumeric item is the sending field, data is moved as if 


the sending item was described as an unsigned numeric integer. 


6. When the receiving field is alphabetic, justification and any neces- 
sary space filling takes place as defined under the JUSTIFIED clause, 
If the size of the sending field is greater than the size of the re- 
ceiving field, the excess characters are truncated on the right, 


after the receiving field is filled. 


Group Moves 


A group move is any move in which either the sending field or the receiving 
field is a group item. Group moves are handled as alphanumeric to alphanu- 
meric moves, regardless of the class of the receiving field and without 

consideration for the individual elementary or group items contained within 


either the sending or receiving area. 


Translation 


Any necessary translation of data from one form of internal representation to 
another, i.e., ASCII to EBCDIC, will be done for elementary or group moves 


depending on the usages of the sending and receiving data items. 
Index Data Items 


An index data item cannot be used as an operand in a MOVE statement. The SET 


statement must be used to move index data items. 
Valid Move Combinations 


Figure 7-1 shows the valid combinations of sending and receiving fields per- 
mitted in COBOL. 


G9-L 


= — 


GROUP 


— & 
ELEM F ELEM (a) —_| Q) 
DISPLAY INTEGER * 
NUMERIC 

a ee 


a - also non-numeric literal 


b - also undigit literal 


© 


* O/O|©|O| + |O|O 


O}* |} + |O|O|W|O 


DISPLAY NUMERIC 


CMP NUMERIC 


v4 


INTEGER REAL INTEGER REAL 


4 SENDING 
NON-NUMERIC | NUMERIC } LEFT JUST. BY | SPACE } FILL ON ] FILL ON } NECESSARY 
MOVE JUST. | DECIMAL 


* ILLEGAL 


Figure 7-1. Valid MOVE Statement Combinations 
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MULTIPLY 
The function of this verb is to multiply two operands and store the results 
in the last-named field (which must be a numeric item). 


The construct of this verb is: 


identifier-1 — identifier-2 


MULTIPLY Pacer is BY ae | 


[GIVING identifier-3] [ROUNDED ] 


{[;ON SIZE ERROR 


All rules specified under the ADD statement regarding the presence of editing 
symbols in operands, the ON SIZE ERROR option, the ROUNDED option, the GIVING 
option, truncation, and the editing results apply to the MULTIPLY statement, 


except the maximum operand size is 125 digits for the sum of two operands. 


The identifiers must be elementary item references. If GIVING is used, 
identifier-3 may be an elementary edited numeric item. In all other cases, 


the identifiers used must refer to elementary numeric items only. 
If the GIVING option is used, the result of the multiplication replaces the 
contents of identifier-3; otherwise, it replaces the contents of identifier-2. 


If GIVING is not used, literal-2 is not permitted, i.e., 
appear. 


identifier-2 must 


NOTE 


The function of this statement is to allow the programmer to write explanatory 
statements in his program which are to be produced on the source program list- 


ing for documentation purposes. 
The constructs of this statement are: 


Option 1: Paragraph NOTE: 


paragraph-name. NOTE any comment. 


Option 2: Paragraph NOTE: 


NOTE any comment. 
Option 3: Sentence NOTE: 


NOTE any comment. 


Any combination of the characters from the allowable character set may be 


included in the character string of a NOTE statement, 


If a NOTE sentence is the first sentence of a paragraph, the entire paragraph 
is considered to be commentary. Either Option 1 or Option 2 may be used as 


NOTE statements on a paragraph level. 


If a NOTE statement appears as other than the first sentence of a paragraph, 
only the sentence constitutes a commentary. After the word NOTE is encountered, 
the first period followed by a space will cause the compiler to resume compi-~ 


lation unless the new sentence commences with the word NOTE. 


Refer to the paragraph entitled CONTINUATION INDICATOR (section 3) for an ex- 
planation of comments (* or / in column 7) appearing anywhere within the 
source program. 


OPEN 


The function of this verb is to initiate the processing of both input and 
output files. The MCP performs checking or writing, or both, of labels and 
other input-output operations. 


The construct of this verb is: 


Option 1: 


] [file-name-2...]]... 


WITH NO REWIND 


eu file-name-1 


OUTPUT file-name-3 [WITH NO REWIND | [file-name-4 eal eot 


oe file-name-5 [LOCK [ACCESS]] [file-name-6...}] 


| | O-I file-name-7 [file-name-8... 


EXTEND file—-name-9 J [tite-name-10...] | 


Option 2: 


OUTPUT 
OPEN I-O file-name 
INPUT-OUTPUT 


File-names must not be those defined as being SORT files. 


At least one of the options must be specified before a file can be read. 
The I-O, INPUT-OUTPUT, and O-I options pertain to disk storage files. 


The OPEN statement must be executed prior to the first SEEK, READ, or WRITE 
statement for that file. | 


A second OPEN statement for a file cannot be executed prior to the execution 
of a CLOSE statement for that file. 


A file area will not exist in memory until an OPEN statement is executed, 
which in turn, causes the MCP to allocate memory for the file work area, and 
any alternate areas or buffers. The MCP will obtain the needed information 
from the File Parameter Block to determine the file's characteristics. Once 
the file has been OPENed, memory will remain allocated until the file is 


programmatically CLOSEd. 


The OPEN statement does not obtain or release the first data record. A READ 
or WRITE statement must be executed to obtain or release, respectively, the 


first data record. 


When the first label is to be checked or written, the user's beginning label 


subroutine is executed if it is specified by a USE statement. 


The REVERSED and the NO REWIND options can only be used with sequential, 
single-reel tape files. 


If the peripheral ASSIGNed to the file permits rewind action, the following 
rules apply: 


a. When neither the REVERSED nor the NO REWIND option is specified, 
execution of the OPEN statement for the file will cause the file to 
be positioned ready to read the first data-record., 

b. When either the REVERSED or the NO REWIND option is specified, 
execution of the OPEN statement does not cause the file to be po- 
Sitioned. When the REVERSED option is specified, the file must be 
positioned at its physical end. When the NO REWIND option is speci-~ 
fied, the file must be positioned at its physical beginning. 

c. When the NO REWIND option is specified, it applies only to sequential, 


Ssingle-reel files stored on magnetic tape units. 


When the REVERSED option is specified, the subsequent READ statements for the 
file makes the data-records available in reverse record order starting with 
the last record. Each record will be read into its record-area, and will 


appear as if it has been read from a forward~moving file. 


If an input file is designated with the OPTIONAL clause in the FILE-CONTROL 
paragraph of the ENVIRONMENT DIVISION, the object program causes an interroga- 
tion to the MCP, for the presence or absence of a pertinent file. If this file 
is not present, the first READ statement for this file causes the imperative 
statement in the AT END clause to be executed only when the operator has re- 


sponded with an optional file "mix index OF" message, 


The I-O or INPUT-OUTPUT option permits the OPENing of a disk file for input 
and/or output operations. This option demands the existence of the file to 
be on the disk and cannot be used if the file is being initially created; 

that is, the file to be OPENed must be present in the MCP disk directory, or 


has been previously created and CLOSEd in the same run of the program, 


When any input file option is used, the MCP immediately checks the MCP disk 
directory to see if the file is present, or if it has been created and CLOSEd 
in the same program run. The system operator will be notified in its absence, 
and the file can then be loaded if it is available or the program can be DSed 
(discontinued). If the decision is to load the file, the operator does so 
and then notifies the MCP to proceed with the program, by means of a '"mix- 


index OK" message. 


The O-I option is identical to OPEN I-O, with the exception that with the O-I 
option the file is assumed to be a new file to the disk directory. The OPEN 
O~I option will short cut the usual method of initially creating I-O work 
files within a program, e.g., OPEN OUTPUT, WRITE record(s), CLOSE WITH RELEASE, 
OPEN I-0O, etc. The O~I option does not, nor was it intended to, replace the 
OPEN I-O option, since the use of OPEN O-I assumes that a new file is to be 


created each time, 


During processing of mass storage files for which the ACCESS MODE is 
SEQUENTIAL, the OPEN statement supplies the initial address of the first 
record to be accessed. 


The contents of the data~names specified in the FILE-LIMIT clause of the 
FILE-CONTROL paragraph (at the time the file is OPENed) are used for all 
checking operations while that file is OPEN. The FILE-LIMIT clause is dynamic 
only to this extent. 
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When an OPEN OUTPUT statement is executed for a magnetic tape file, the MCP 
searches the assignment table for an available scratch tape, writes the label 
if specified by the program, and executes any USE declaratives for the file. 
If no scratch tape is available, a message to the operator is typed and the 
program is suspended until the operator mounts such a tape or one becomes 


available due to the termination of a multiprogramming program. 


OPENing of subsequent reels of multi-reel tape files is handled automatically 


by the MCP and requires no special consideration by the programmer. 


PERFORM 


The function of this verb is to depart from the normal sequence of execution 
in order to execute one or more procedures, either a specified number of times 
or until a specified condition is satisfied. Following this departure, con- 


trol is automatically returned to the normal sequence. 
The construct of this verb has the following four options: 
Option 1: 


THRU 


PERFORM procedure~name-1 tee 


\ procedure-name-2 | 


Option 2: 


THRU 


PERFORM procedure~name~1 ae pae | 


procedure-nane-2 | 


TIMES 


ene 
ides it teuio} 


Option 3: 


THRU \ 


PERFORM procedure-name~]l lL amoues 


procedure-name-2 | 


UNTIL condition-1l 
Option 4: 


THRU \ 


THROUGH procedure-name-2 | 


PERFORM procedure~name-1 Ei 


VAR index-name~1 index-name~2)} 
YING identifier-1 FROM identifier-2 BY 
A : literal-2 | 
iden ttiee 3) Pe Oe | eee) 
ieee UNTIL condition~l | AFTER \ identifier-4 


BY jee ee 


index-name7 5 
= (literal-6 


FROM oe 
literal-5 


FROM 


ee 


UNTIL condition-2 | | AETER eee ale 


index-name-8 ; ees. 
jdentifier-8 BY epee a 
(Jiteral-8 literal-9 


UNTIL sohdnenoace! 


PERFORM is the means by which subroutines are executed in COBOL. The sub~ 
routines may be executed once, or a number of times, as determined by a 
variety of controls. A given paragraph may be PERFORMed by itself, in con- 
junction with another paragraph, control may pass through it in sequential 
operation, and it may be the object of a GO statement, all in the same pro- 


gram. 


Each identifier represents a numeric elementary item. Identifier-10 must be 


described as an integer. 
Each literal represents a numeric literal. 


When the PERFORM statement is executed, control is transferred to the first 
statement of procedure~name~1, An automatic return to the statement following 
the PERFORM statement is established as follows: 


a. If procedure~name-l is a paragraph~name and procedure~name-2 is 
not specified, then the return occurs after the last statement of 


procedure~name~l. 


procedure-name~l is a section name and procedure~name~Z is not 


on 


If 
specified, then the return occurs after the last statement of the last 


paragraph in procedure~name~l. 


c. If the procedure-name~2 is specified and it is a paragraph name, then 


the return occurs after the last statement of the paragraph. 


d. If the procedure~name-2 is specified and it is a section name, then 
the return occurs after the last sentence of the last paragraph in the 


section. 


There is no necessary relationship between procedure~name~1 and procedure-~ 
name~2, except that a consecutive sequence of operations is to be executed 
beginning at the procedure named procedure~name-1 and ending with the execu- 
tion of the procedure named procedure~name-2. In particular, GO TO and 


PERFORM statements may occur between procedure-name-1 and the end of 


procedure-name~2, If there are two or more direct paths to the return point, 
then procedure-name-2 may be the name of a paragraph consisting of the EXIT 


statement, to which all of these paths must lead, 


If control passes to these procedures by means other than a PERFORM statement, 
control passes thru the last statement of the procedure to the following 
statement, unless a PERFORM statement is executed during execution of these 
procedures. 


If a statement within procedure~name~1l1 or procedure~name-2 contains a nested 
PERFORM, object program control will pass to the procedure~name contained in 
the nested statement, and the procedure will be accomplished. Program control 
will automatically return to the next sentence following the executed PERFORM 
statement. Nested PERFORM statements are allowed to any reasonable depth. 
However, the procedure named must return to the statement following the pre- 
viously executed PERFORM and cannot contain a GO TO out of range of procedure- 


name-1l or procedure-name~2. 


A PERFORM statement is not restricted by overlayable segment boundaries and 
may reference a procedure~name anywhere within the PROCEDURE DIVISION, 


Option 1 is the basic PERFORM statement. A procedure referred to by this 
type of PERFORM statement is executed once, and then control passes to the 
statement following the PERFORM statement. 


Option 2 is the TIMES option and, when used, the procedures are performed the 
number of times specified by identifier-10 or integer-1l, The value of 
identifier-10 or integer-1 must be positive. Control is transferred to the 
statement following the PERFORM statement. If the value is zero, control 
passes immediately to the statement following the PERFORM sentence. Once the 
PERFORM statement has been initiated, any reference to, or manipulation of, 


identifier-10 will not affect the number of times the procedures are executed. 


Option 3 is the UNTIL option. The specified procedures are performed until 
the condition specified by the UNTIL condition is TRUE, At this time, control 
is transferred to the statement following the PERFORM statement. If the con- 
dition is TRUE at the time that the PERFORM statement is encountered, the 


Specified procedure is not executed, 


In option 4, when one identifier is varied, identifier-1l is set equal to the 
current value of identifier-2, or literal-2. If the condition is false, 

the sequence of procedures, procedure-name-1 thru procedure-name-2, is 
executed once. The value of identifier-l is augmented by the specified incre- 


ment or decrement (identifier-3), and condition-1 is evaluated again, The 
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cycle continues until this expression is true; at this point, control passes 
to the statement following the PERFORM statement. If the condition is true at 
the beginning of execution of the PERFORM, control passes directly to the 
statement following the PERFORM statement. Figure 7-2 illustrates the logic 


of the PERFORM statement when one identifier is varied. 


In option 4, when two identifiers are varied, identifier-l and identifier-4 
are set to the current value of identifier-2 and identifier-5, respectively. 
At the start of the PERFORM statement, condition~1l is evaluated; if true, 
control is passed to the statement following the PERFORM statement; if false, 
condition-2 is evaluated. If condition-2 is false, procedure-name~l] thru 
procedure~name-2 is executed once, after which identifier-4 is augmented by 
identifier-6, and condition-2 is evaluated again. The cycle of execution and 
augmentation continues until this condition is true. When condition-2 is 
true, identifier-4 is set to the current value of identifier-5; identifier-1l 
is augmented by identifier-3, and condition-1 is re-evaluated. The PERFORM 
statement is completed if condition-1l1 is true; if not, the cycles continue 
until condition-1 is true. 

Figure 
are varied. 

During the execution of the procedures associated with the PERFORM statement, 
any change to the VARYING variable (identifier-l and index~name-1), the BY 
variable (identifier-3), the AFTER variable (identifier-4 and index~name~4) , 
of the FROM variable (identifier-2, index~name-2, identifier-5 and index-name- 
5) wili be taken into consideration and will affect the operation of the PER- 
FORM statement. 


When two identifiers are varied, identifier-4 goes thru a complete cycle 
(FROM, BY, UNTIL) each time identifier-1 is varied. 


At the termination of the PERFORM statement, identifier-4 contains the current 
value of identifier-5. Identifier-1l has a value that exceeds the last used 
setting by an increment or decrement, as the case may be, unless condition-l 
was true when the PERFORM statement was entered, in which case identifier-l 


contains the current value of identifier-2. 
NOTE 


Identifier-3, identifier-6, and identifier-9 


cannot contain zeroes. 


ENTRANCE 


SET IDENTIFIER-1 EQUAL TO 
CURRENT FROM VALUE 


FALSE 
EXECUTE PROCEDURE-NAME~-1 
THRU PROCEDURE-NAME-2 


AUGMENT IDENTIFIER-1 WITH 
CURRENT BY VALUE 


Figure 7-2, PERFORM Statement Varying One Identifier 


ENTRANCE 


SET IDENTIFIER-1 AND 


IDENTIFIER-4 TO 
CURRENT FROM VALUES 


CONDITION-1 ? TRUE EXIT 
| 


| FALSE 


CONDITION-2 ? TRUE 


FALSE 


EXECUTE PROCEDURE-NAME-1 SET IDENTIFIER-4 TO ITS 
THRU PROCEDURE-NAME-2 CURRENT FROM VALUE 


AUGMENT IDENTIFIER-4 WITH AUGMENT IDENTIFIER-1 WITH 
CURRENT BY VALUE CURRENT BY VALUE 


Figure 7-3, PERFORM Statement Varying Two Identifiers 


PERFORM 


In Option 4 where three conditions are required to control the number of 
iterations that a given procedure is to be PERFORMed, the mechanism is the 
same as for two-conditional control except that identifier-7 goes through a 
complete cycle each time that identifier-6 is added to identifier-4, which in 


turn goes through a complete cycle each time that identifier-l is varied. 


After the completion of option 4, identifier-4 and identifier-7 contain the 
current value of identifier-5 and identifier-8, respectively. Identifier-1 
has a value that exceeds its last used setting by one increment or decrement 
value, unless condition-1 is true when the PERFORM statement is entered, in 


which case identifier-l contains the current value of identifier-2. 


Since the return control information is placed in the stack rather than being 
directed through instruction address modification, a PERFORM statement exe- 
cuted within the range of another PERFORM is not restricted in the range of 
paragraph names it may include. The examples shown below are permitted and 


will execute correctly. 


x PERFORM a THRU m x PERFORM a THRU m x PERFORM a THRU m 
a a a 

d PERFORM f THRU j d PERFORM f THRU j | f 

f m m 

/aaiaieaniels : ; 

m j _ d PERFORM f THRU j 
x PERFORM a THRU m x PERFORM a THRU m 

a a 

d PERFORM f THRU j d IF condition THEN 

f IF condition THEN PERFORM a THRU m 


PERFORM a THRU m 


READ 
The functions of this verb are twofold, namely: 


a. During processing of sequential input files, a READ statement will 
cause the next sequential logical record to be moved from the input 
buffer area to the record work area, thus making the record available 


to the program. 


All sequential records will be physically read into the buffer area 
of the file. Physical READs are performed as a function of the MCP. 
The READ statement permits the performance of a specified statement 


when an end-of-file condition is detected by the MCP. 


b. For random file processing, the READ statement communicates with the 
MCP to explicitly cause the reading of a physical record from a disk 
file, and also allows performance of a Specified statement if the 
content of the associated ACTUAL KEY data item is found to be in- 


valid. 


The construct of this verb is: 


_ {AT END | statement=1 


READ file-name RECORD [INTO identifier] ; | INVALID KEY | 


The AT END clause is used for non-disk files or for disk files being processed 
in the sequential access mode. If no AT END or INVALID KEY clause is stated, 
and one of these conditions occurs, the program will be terminated with a DS 


or DP message. 


If, during execution of a READ statement with AT END, the logical end-of-file 
is reached and an attempt is made to READ that file, the statement speci- 
fied in the AT END phrase is executed. After the execution of the state- 
ment of the AT END phrase, a READ statement for that file must not be given 
without prior execution of a CLOSE statement and an OPEN statement for that 
file. 


When the AT END clause is specified in a conditional sentence, ail exits 
within the sentence are controlled by using the rules pertaining to the 


matching of IF...ELSE pairs. For example: 


IF AAA = BBB THEN READ FILE-A, 
GO TO WRAP-UP, ELS 


ELSE STOP RUN. 
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a. When AAA does not equal BBB, control will be passed to STOP RUN. 
When AAA equals BBB, FILE-A is read, end-of-file is tested and if 
the result is TRUE program control will be transferred to the 
WRAP-UP procedure; 


The INVALID KEY applies to files that are ASSIGNed to disk. The access of 
the file is controlled by the value contained in ACTUAL KEY. 


An AT END or INVALID KEY clause must be specified when reading a file de- 
scribed as containing FILE-LIMITS. 


An OPEN statement must be executed for a file prior to the execution of the 
first READ statement for that file. 


When a file consists of more than one type of logical record, these records 
automatically share the same storage area and are equivalent to an implicit 
redefinition of the area. Only the information that is present in the cur- 


rent record is available. 


If the INTO option is specified, the current record is MOVEd from the input 
area to the area specified by identifier according to the rules for the MOVE 
statement without the CORRESPONDING option. 


When the INTO option is used, the record being read is available in both the 


data area associated with identifier and the input record area. 


If a file described with the OPTIONAL clause is not present, the imperative 
statement in the AT END phrase is executed on the first READ. The standard 


End-of-File procedures are not performed. (See the OPEN and USE statements, 
and the FILE-CONTROL paragraph in the ENVIRONMENT DIVISION. ) 


If the end of a magnetic tape file is recognized during execution of a READ 


statement, the following operations are carried out: 


a. The standard ending reel label procedure and the user's ending reel 
label procedure, if specified by the USE statement, are performed. 
The order of execution of these two procedures is specified by the 
USE statement. 


b. A tape swap is performed. 


c. The standard beginning reel label procedure and the user's beginning 
label procedure, if specified, are executed. The order of execution 
is again specified by the USE statement. 


d. The first data record on the new reel is made available, 


READ with INVALID KEY is used for disk files in the random access mode. The 
READ statement implicitly performs the functions of the SEEK statement, ex- 
cept for the function of the KEY CONVERSION option for a specific disk file. 
If the content of the associated ACTUAL KEY data item is out of the range 
indicated by FILE-LIMITS or the FILE CONTAINS clause, the INVALID KEY phrase 


will be executed. 


For random disk files, the sensing of an INVALID KEY does not preclude further 
READs on that file, nor must the file be closed and reopened before such READs 


are allowed. 


RELEASE 


The function of this verb is to cause records to be transferred to the initial 


phase of a SORT operation. 


The construct of this verb is: 
RELEASE record-name [FROM identifier | 


A RELEASE statement may only be used within the range of an input procedure 


associated with a SORT statement. 
Record-name and identifier must name different memory areas when specified. 


The RELEASE statement causes the contents of record-name to be released to 
the initial phase of a sort. Record-name will be transferred to the speci- 


fied sort-file (SD) and becomes controlled by the sort operation. 


In the FROM option, the contents of identifier are MOVEd to record-name, then 
the contents of record-name are released to the initial phase of a sort. 


Moving takes place according to the rules specified for the MOVE statement 


When control passes from the input procedure, the SD file consists of all 


records placed in it by the execution of RELEASE statements. 


RETURN 


RETURN 


The function of this verb is to obtain sorted records from the final phase 
of a SORT operation. 


The construct of this verb is: 


RETURN file-name RECORD [INTO identifier] 


[; AT END statement-1 [;ELSE statement-2]] 


File-name must be a sort file with a Sort File Description (SD) entry in the 
DATA DIVISION. 


A RETURN statement may only be used within the range of an output procedure 
associated with a SORT statement for file-name. 


Records automatically share the same area when a file consists of more than 


one type record and only the information pertinent to the current record is 
available. 


The execution of the RETURN statement causes the next record, in the order 
specified by the keys listed in the SORT statement, to be made available for 


processing in the record area associated with the SORT file (SD). 


Moving is performed according to the rules specified for the MOVE statement 
without the CORRESPONDING option. 


When the INTO option is specified, the sorted data is available in both the 


input-record area and the data-area specified by identifier. 


RETURN statements may not be executed within the current SORT input procedure 
after the AT END clause has been executed. 


SEARCH 


The function of this verb is to cause a search of a table to locate a table- 


element that satisfies a specific condition and, in turn, to adjust the as- 


sociated index-name to indicate that table-element. 


The construct of this verb has the following two options: 


Option Il: 


SEARCH identifier-1 | VARYING 


fi 


es 
sal Faianre-9 
LUwS vA 


Ld 


[;AT END imperative-statement~1 | 


; WHEN condition-~1l 


ne condition-2 \ 


Option 2: 


{NEXT SENTENCE? 


NEXT Soren 


SEARCH ALL identifier-3 [;AT END imperative statement-2 | 


;WHEN condition-3 ‘ 


cz} 


Identifier-~l and identifier-3 must not be subscripted or indexed, but its des- 
cription in the DATA DIVISION must contain an OCCURS clause and an INDEXED BY 


clause. 


When Option 


2 is specified, the description of identifier-3 may optionally 


contain the ASCENDING/DESCENDING KEY clause. 


When the VARYING option is used, identifier-2 must be described as USAGE IS 


INDEX, or as the name of a numeric elementary item described without any po- 


sitions to the right of the assumed decimal point. Identifier-2 will be in- 


cremented at the same time as the occurrence number (and by the same amount) 


represented 


When Option 


conditional 


When Option 
corporating 
clause that 
Condition-3 


by the index-~name associated with identifier-1l. 


1 is used, condition-~1, condition-2, etc., may be comprised of any 


as described by the IF verb. 


2 is used, condition-3 may consist of a relational condition in- 
the relation EQUAL, or a condition-~name condition where the VALUE 
describes the condition-name contains only a single literal. 


may be a compound condition formed from simple conditions of the 


type just mentioned, with AND being the only acceptable connective. 
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When Option 2 is used, any data-name that appears in the KEY option of 
identifier-3 may appear as the subject or object of a test, or be the name of 


the conditional variable with which the tested condition-name is associated. 


When Option 1 is used, a serial type search operation takes place, starting 
with the current index setting. The search is immediately terminated if, at 
the start of execution of the statement, the index-name associated with data- 
identifier-1 contains a value that corresponds to an occurfence number that is 
greater than the highest permissible occurrence number for identifier-1l. Then, 
if the AT END option is specified, statement-l is executed; if AT END is not 
specified, control passes to the NEXT SENTENCE, 


When Option 1 is used, if at the start of execution of the SEARCH statement, the 
index~name associated with identifier-1l contains a value that corresponds to an 
occurrence number that is not greater than the highest permissible occurrence 
number for identifier-1, the SEARCH statement will begin evaluating the con- 
ditions in the order that they are written, making use of index settings 
wherever specified, to determine the occurrences of those items to be tested. 
If none of the conditions are satisfied, the index~name for identifier-l 

is incremented to obtain a reference to the next occurrence, The process is 
repeated using the new index-name setting for identifier-1, which corresponds 
to a table element which exceeds the last setting by one more occurrence, 

until such time as the highest permissible occurrence number is exceeded, in 


which case the SEARCH terminates as indicated in the previous paragraph. 


When Option 1 is used, if one of the conditions is satisfied upon its evaluation, 
the SEARCH terminates immediately and the statement associated with that 
condition is executed; the index-name remains set at the occurrence which 


caused the condition to be satisfied. 


In Options 1 and 2, if the specified imperative statements do not terminate 
with a GO statement, then program control will pass to the next sentence, after 


the execution of the imperative statement. 


In the VARYING option, if index-name-1 appears in the INDEXED BY option of 
identifier-l1, then that index-name will be used for the SEARCH; otherwise, the 
first index-name given in the INDEXED BY option of identifier-1 will be used. 
If index-name-1 appears in the INDEXED BY clause of another table entry, the 
occurrence number represented by index-name-1l is incremented by the same 
amount as, and at the same time as, the occurrence number represented by the 


index-name associated with identifier-1 is incremented. 


In Option 2, the initial setting of the index-name for identifier-3 is ig- 


nored, the effect being the same as if it were SET to l. 


In Options 1 and 2, if identifier-l and identifier-3 constitute an item ina 
group, or a hierarchy of groups, whose description contains an OCCURS clause, 
then each of these groups must also have an index~name associated with it. The 
settings of these index-names are used throughout the execution of the SEARCH 
statement to refer to identifier-l and identifier-3, or to items within its 
structure. These index settings are not modified by the execution of the 
SEARCH statement (unless stated as index-name-1), and only the index-name 
associated with identifier-1l and identifier-3 (and identifier-2 or index-name- 
1) is incremented by the SEARCH. Figure 7-4 provides an example of SEARCH 


operation as related to Option l. 


AT END* 


INDEX SET: 
HIGHEST PERMISSIBLE 
OCCURRENCE NUMBER 


GREATER THAN ACCOMPLISH 
IMPERATIVE 


STATEMENT-1 


LESS THAN OR EQUAL 


CHECK 


TRUE ACCOMPLISH 
CONDITION~-1 
? 


3K OK 
STATEMENT-1 oe 


CHECK 


CONDITION~-2* TRUE ACCOMPLISH 
? 


STATEMENT-2* 


INCREMENT INDEX- 
NAME FOR IDENTI- 
FIER-1 OR INDEX- 

NAME IF APPLICABLE 


INCREMENT INDEX— 
NAME (FOR A DIFF- 
ERENT TABLE) OR 
IDENTIFIER-2* 


* These operations are only included when called for in the SEARCH statement. 


** kach of the control transfers is to NEXT SENTENCE unless the statement 
ends with a GO statement. 


Figure 7-4. Example of Option 1 SEARCH Statement 
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[seex |] 


SEEK 


The function of this verb is to initiate the accessing of a disk file record 


for subsequent reading and/or writing. The construct of this verb is: 


SEEK file-name RECORD [WITH KEY CONVERSION ] 


The specification of the KEY CONVERSION clause indicates that the user~ 
provided USE FOR KEY CONVERSION section in the DECLARATIVE SECTION is to be 
executed prior to the execution of the SEEK statement. If there are no 
DECLARATIVES for KEY CONVERSION in a SEEK statement, then the KEY CONVERSION 


clause will be ignored. 


A SEEK statement pertains only to disk storage files in the random access mode 


and may be executed prior to the execution of each READ and WRITE statement. 


The SEEK statement uses the contents of the data~name in the ACTUAL KEY clause 
as the location of the record to be accessed. At the time of execution, the 
determination is made as to the validity of the contents of the ACTUAL KEY 
data item for the particular disk storage file. If the key is invalid, the 
imperative statement in the INVALID KEY clause of the next executed READ or 
WRITE statement for the associated file is executed. 


Two SEEK statements for a disk storage file may logically follow each other. 
Any validity check associated with the first SEEK statement is negated by the 
execution of a second implicit or implied SEEK statement. 

An implied SEEK is executed by the MCP whenever an explicit SEEK is missing 
for the specified record. An implied SEEK never executes any USE KEY CON- 
VERSION Declaratives. 

If a READ/WRITE statement for a file ASSIGNed to DISK is executed, but an 
explicit SEEK has not been executed since the last previous READ or WRITE 
for the file, then the implied SEEK statement is executed as the first step 
of the READ/WRITE statement. 


An explicit alteration of ACTUAL KEY after the execution of an explicit SEEK 
has been performed, but prior to a READ/WRITE, will cause the initiation of 
an implied SEEK of the initial record in the sequence. For example, 

If ACTUAL KEY is 10, then 

READ record 10, then 

MOVE 50 to ACTUAL KEY, then 

d. WRITE record 50. 


oO TF ® 


An implied SEEK of record 50 will be performed between actions c and d, above. 


[ ser ] 


SET 


The SET statement establishes reference points or offsets operations by set- 


ting index-names associated with table elements. 


The construct of this verb has the following two options: 


Option 1: 
: wigs ; ae identifier-3 
identifier-1 identifier-2 - . i 
SET et E (Geers aecs) | ae To | indes nie | 
integer-1l 
Option 2: 
‘ _ = ; & _ UP BY identifier-4 
SET index-name-4 [, index-name-5] sine tee al Niaiscerso 


All references to identifier-1l1 and index~name-1l1 apply equally to identifier-2 


and index~name-2, respectively. 


All identifiers must name either index data items, or elementary items des- 
cribed as an integer, except that identifier-4 must not name an index data 

item. When integer-l is used, it must be a positive integer. Index-names 

are considered related to a given table and are defined by being specified 

in the INDEXED BY phrase of the OCCURS clause. 


If index-name-3 is specified, the value of the index before the execution of 
the SET statement must correspond to an occurrence number of an element in 
the associated table. 


If index-name-l1, index-name-2 is specified, the value of the index after the 
execution of the SET statement must correspond to an occurrence number of an 
element in the associated table. The value of the index associated with an 
index~name after the execution of a SEARCH or PERFORM statement may be un- 
defined. 


In option 1, the following action occurs: 


a. Index~name-l1 is set to a value causing it to refer to the table ele- 
ment that corresponds in occurrence number to the table element ref- 
erenced by index-name~3, identifier-3, or integer~l. If identifier-3 
is an index data item, or if index-name-3 is related to the same 


table as index-name-1, no conversion takes place, 


[ set ] 


b. If identifier-l is an index data item, it may be set equal to either 
the contents of index-name-3 or identifier-3 where identifier-3 is 


also an index data item; no conversion takes place in either case. 


ec. If identifier-1l is not an index data item, it may be set only to an 
occurrence number that corresponds to the value of index-name-3. 


Neither identifier-3 nor integer-1l can be used in this case. 


d. The process is repeated for index-name-2, identifier-2, etc., if 
specified. Each time, the value of index-name-3 or identifier-3 
is used as it was at the beginning of the execution of the statement. 
Any subscripting or indexing associated with identifier-l1, etc., is 
evaluated immediately before the value of the respective data item 


is changed. 


In option 2, the contents of index-name-4 are incremented (UP BY) or decre- 
mented (DOWN BY) by a value that corresponds to the number of occurrences 
represented by the value of integer-2 or identifier-4; thereafter, the process 
is repeated for index-name-5, etc. Each time the value of identifier-4 is 


ee ey od. “ee AS eee 1 ‘ 
used as it was at the b ¥ the execution of the statemen 


Data in the figure 775 represents the validity of various operand combinations 
in the SET statement. The parenthetical comment references the lettered para- 


graphs above. 


DATA ITE 


No (b) 
Index Data Item Valid (a)* Valid (b)* 


*No conversion takes place. 


Figure 7-5. SET Statement Operand Combinations 


SORT 


SORT 


The function of this verb is to sort an input file of records by transferring 
such data into sort work files and sorting those records on a set of speci- 
fied keys. The final phase of the sort operation makes each record available 


from the sort-file, in sorted order, to an output procedure or to an output 
file. 


The construct of this verb is: 


SORT file-name-1 


(WITH file-name-4] 


{ DESCENDING} 


ON (ASCENDING | KEY data-name-1 [, data-name-2 | ae 


{DESCENDING} | 
[ow (ASCENDING | KEY data-name-3 [, data-name-4] estes 


INPUT PROCEDURE IS section-name-1 ee sect ion-name-2 | 


USING file-name-2 


OUTPUT PROCEDURE IS section-name-3 [| seBoucH |Section-name~4| 


GIVING file-name-3 


ed a: he TAG-KEY 
vail > the entire . 


2, and file-name-3 


sorts using tape work 


SORT 


File-name-1 must be described in a Sort File Description (SD) entry in the 
DATA DIVISION, and file-name-2, file-name-3, and file-name-4 must be described 
in. a File Description (FD) entry. 


Section-name-1 specifies the name of the input procedure to be used before 
each record is passed to the sort-file, and section-name-3 specifies the out- 


put procedure to be used to obtain each sorted record from the sort-file. 


SORT 


Each data~name must represent data-~items described in records associated 
with file-name-1. Data-names following the word KEY are listed from left 
to right, in the order of decreasing significance, without regard to their 


division into optional KEY clauses. 


The PROCEDURE DIVISION of a source program may contain more than one SORT 
statement appearing anywhere in the program, except in the DECLARATIVES por- 
tion or in the input/output procedures associated with a SORT statement. 


The input procedure must consist of one or more sections that are written 
consecutively and which do not form a part of an output procedure, The in- 
put procedure must include at least one RELEASE statement in order to trans- 
fer records to the sort-file after the object program has accomplished the 
required input data manipulation specified in the procedure. Input procedures 
can select, create and/or modify records, one at a time, as specified by the 


programmer. 


There are three restrictions placed on procedural statements within an input 


or output procedure: 


a. The procedure must not contain any SORT statements. 

b. The input or output procedures must not contain any transfers of 
program control outside the range of the procedure; ALTER, GO and 
PERFORM statements within the procedure are not permitted to refer 
to procedure-names outside of the input or output procedure, 

c. The remainder of the PROCEDURE DIVISION must not contain any transfers 
of program control to points within the input or output procedure; 
ALTER, GO, and PERFORM statements in the remainder of the PROCEDURE 
DIVISION must not refer to procedure-names within the range of the 
input or output procedure, 


The output procedure must consist of one or more sections that are written 
consecutively and which do not form a part of an input procedure. The output 
procedure must include at least one RETURN statement in order to make each 
sorted record available for processing. Output procedures can select, create, 
and/or modify records, one at a time, as they are being returned from the sort 
file. 


When the ASCENDING clause is specified, the sorted sequence of the affected 


records is from the lowest to the highest value, according to the binary 


When the DESCENDING clause is specified, the sorted sequence of the affected 


name KEY items in the relative positions of the record, as applicable. A rule 


to follow when using these KEY items is that when a KEY item appears in more 
than one type of record, the data-names must be relatively equivalent in each 
record and may not contain, or be subordinate to, entries containing an OCCURS 


clause, 


When an INPUT procedure is specified, object-program control will be passed to 
that procedure automatically as an implicit function of encountering the gen- 

erated SORT verb object code compiled into the program. The compiler will in- 
sert a "return-to~the-sort" mechanism at the end of the last section in the in- 
put procedure, and when program control passes the last statement of the input 


procedure, the records that have been RELEASED to file-name-1 are sorted. 


If the USING option is specified, all records residing in file-name-2 will be 
automatically transferred to file-name-1, upon encountering the generated SORT 
verb object code. At the time of execution of the SORT statement, file~name-2 
must have been CLOSEd WITH LOCK or RELEASE. The SORT statement automatically 
performs the function necessary to OPEN, READ, USE and CLOSE file-name~-2. If 
file-name-2 is a disk file, it must be in the Disk Directory before the SORT 
intrinsic is calied. 

If an output procedure is specified, object~program control will be passed 

to that procedure automatically as an implicit function when all records have 
become sorted. The compiler will insert a "return-to-the-object program" me- 
chanism at the end of the last section in the output procedure; and when pro- 
gram control passes the last statement of the output procedure, the object 


program will execute the next statement following the pertinent SORT statement. 


If the GIVING option is specified, all sorted records residing in file~name-1l 
are automatically transferred to the OUTPUT file as specified in file-name-3. 
At the time of execution of the SORT statement, file-name-3 must have been 
CLOSEd WITH LOCK or RELEASE. File~name-3 will be automatically OPENed before 
the sorted records are transferred from the sort~file and, in turn, will be 
automatically CLOSEd, default is LOCK, after the last record in the sort~file 


has been transferred, 


Example: 


SORT file~name~1 ASCENDING KEY data~-name-1_ 
USING file-name-2 _ 
GIVING file-name-3 


Beginning and ending label USE procedures are provided as follows when input/ 


output procedures are present in the SORT statement: 


a. OPEN INPUT file-name. 
USE. . . (The programmer's USE procedure will be invoked). 

b. OPEN OUTPUT file-name. 
USE, . . (The programmer's USE procedure will be invoked). 

c. CLOSE INPUT file~name, 
USE. . . (The programmer's USE procedure will be invoked; however, 
the contents of the ending input label will not be available to the 
USE procedure). 

d. CLOSE OUTPUT file-name. 
USE. . . (The programmer's USE procedure will be invoked; however, 
the ending label will have been written prior to execution of the 
USE procedure). 


NOTE 


The above action provide label USE pro- 
cedures at beginning and ending of files, 
but not during switching of reels of 
multi-reel files. 


STOP 


The function of this verb is to halt the object program temporarily or to 


terminate execution. 


The construct of this verb is: 


automatically. New files ASSIGNED to DISK will be CLOSED WITH PURGE and all 
others will be CLOSED WITH RELEASE. See the SAVE option in the FILE-CONTROL 
paragraph. All storage areas for the object program are returned to the MCP 


and the job is then removed from the MCP mix. 


The STOP RUN is not used for temporary stops within a program. STOP RUN 


must be the last statement of the program execution sequence. 


A sequence of imperative statements may contain a STOP RUN statement which, 


f present, must appear as the last imperative statement of the sequence. 


If the literal option is used, the literal will be DISPLAYed on the console 
printer and the program will be suspended. When the operator enters the MCP 
continuation message mix-index AX, program execution resumes with the next 
sequential operation. This option is normally used for operational halts to 
cause the system's operator to physically accomplish an external action. 


SUBTRACT 


SUBTRACT 


The function of this verb is to subtract one data item, or the sum of two or 
more, numeric data items from another item, and set the value of an item equal 
to the result(s). 


The construct of this verb has the following three options: 


Option 1: 
{literal-1 | [ literal-2 | 
SU lidentifier-lj ({identifier-2{ : FROM 
identifier-m (rouNDED] |identifier-n [ROUNDED | ot 


[;ON SIZE ERROR st 
Option 2: 


{literal-1 | (eee | 
SUBTRACT jidentifier-1| Llidentifier-2 | 


| FROM 


{literal-m } 


; aces GIVING identifier-n [ROUNDED] | ,identifier-o [ROUNDED] J... 
lidentifier-m| ——— ——— 


[;ON SIZE ERROR statement- 


Option 3: 


;c . 2 oad ene 
SUBTRACT cope Seanine G | identifier-1 FROM identifier-2 


[ROUNDED][;ON SIZE ERROR statement-1 [; 


In Options 1 and 2, the identifiers used must refer only to elementary numeric 
items. If Option 2 is used, the data-description of identifier-n and identifier- 


o may be an elementary numeric edited item. 


All rules specified under the ADD statement with respect to the operand size, 
presence of editing symbols in operands, the ON SIZE ERROR option, the ROUNDED 
option, the GIVING option, truncation, the editing results, the handling of 
intermediate results, and the CORR or CORRESPONDING option apply to the SUB- 
TRACT statement. 


When the GIVING option is not used, a literal may not be specified as the minuend 


When dealing with multiple subtrahends, the effect of the subtraction will be as 
if the subtrahends were first summed, and then the sum subtracted from the 
minuends. 
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TRACE 


TRACE 


ca 


USE 


The function of this verb is to specify procedures for any input/output 
error and/or label handling which are in addition to the standard procedures 
supplied by the MCP, to calculate the ACTUAL KEY for file 


The construct of this verb has the following five options: 


Option 1: 


file-name-1 | ,file-name-2] 


| | INPUT 
USE AFTER STANDARD ERROR PROCEDURE ON  tyon-qyrppr 
1-0 


Qption 2: 
USE FOR KEY CONVERSION ON file~name-1 [,file-name-2...]. 


“follow a section header in _ 
ON and must be followed by a 
period followed by a space. The remainder of the section must consist of one 


or more procedural paragraphs that define the procedures to be used. 


A USE statement specified for input and/or output files associated with the 
SORT verb will not be executed when executing the SORT unless an INPUT and/or 
OUTPUT PROCEDURE has been included in the program. 


The USE statement itself is never executed rather, it defines the conditions 


calling for the execution of the USE procedures. 


[use] 


Within a given format, a file-name must not be referred to implicitly or 


explicitly in more than one USE statement. 
USE procedures will be executed by the MCP: 


a. After completion of the standard I/O error retry routine (this applies 
only to option 1), the record in error has been read; therefore, another 
READ cannot appear in the USE section, since the MCP is performing 
the section because of a previous READ which has been completed. 

Upon completion of the USE procedure, control is returned to the 
statement following the READ which detected the error condition. 

b. Prior to any SEEK WITH KEY CONVERSION statement on files named in 
the USE FOR KEY CONVERSION statement. 


There must not be any reference to non-declarative procedures within a USE 


procedure. Conversely, in the non-declarative portion there must be no 
reference to procedure-names that appear in the declarative portion, except 
that a PERFORM statement may refer to a USE declarative or to the procedures 


associated with such USE declaratives. 
NOTE 


USE AFTER STANDARD ENDING and USE BEFORE 
STANDARD BEGINNING are both illegal entries 
in B 1800/B 1700 COBOL. 


WAIT 


WAIT 


a Se 
until an AX me 3 


bis’ sonatiton is Wele igichaver 
BL /0 devices such. as card. punches: e 
there is space in the buffers for: at ‘least one 


files and files which are ‘not OPEI this” eve 


The READ-OK option causes pr 
least. ‘one record in ‘file-nam 
to. specify. queue number for que 


event is true when the queue sp For serial 1/0 devices 
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ition is “found, Es “wWAIT" 


geraa ? If in this initial 


"program execution is 
at which time, the "WAIT" 
oes the next statement. 


25 is set by the WAIT statement 
rminated the WAIT.. Identifier-5, 
second event in the list of 


be set toa value of one. The 
in a WAIT statement is nine. 
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et 


IDENTIFIER=3 eC 


77 LOENTIFTIER@4 PC 9 
PoE og { i ee 
Dee PROCEDURE ‘OLVISTON, oo 
“OPEN. 1-0 QUEVE*FILE, 
MATT UNTER ~ IDENTS = 
SPNwINPUT@PRESENT 
WRITE@OK ON QUEUE*FILE. t IDENTIFIER|2 ) 
READSOK ON QUEUESFILE ¢. IDENTIFTER®S ) 
| WRITE*OK ON eee ) 
USING IDENTIFIER|G | . in 
GIVING IDENTIFIERS . 
TF JOENTIFTER@S = 0 OTS | SECONDS", 
IF IDENTIFIER*S & 1 p \POmINPUT@=PRESENT", 
TF IDENTIFIER=§ w 2? D: i "2ND QUEUE. HAS ‘SPACE FOR A MSG", 
IF YOENTIFTEReS @ 3 ‘DISPLAY "3RD QUEUE MAS A MSG TO READ", 
IF IDENTIFIERe5 2 G DISPLAY "8TH QUEUE HAS SPACF FOR A MSG", 
STOP RUN, 
ENDeOF#JOB, 
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WRITE 


The function of this verb is to release a logical record for an output file. 
It is also used to vertically position forms in the printer. For mass 
storage files, the WRITE statement also allows the performance of a speci- 
fied imperative statement if the contents of the associated ACTUAL KEY item 


are found to be invalid. 


The construct of this verb has the following two options: 


Option 1: 


WRITE record-name [FROM identifier-1] 


ADVANCING 


eee 


TO CHANNEL identifier-3 


integer-l | 
| Pee LINES 
[ eto Oneness 


EOP 


WRITE record-name [FROM identifier-1] 


[; INVALID KEY 


An OPEN statement for a file must be executed prior to execution of the first. 
WRITE statement for that file. 


The record-name must be defined in the DATA DIVISION by means of an O1 level 
entry under the FD entry for the file. The record-name and identifier-1 must 


not be the same name, or be in two files that have the same record area, 


7 
The ADVANCING option allows the control of vertical positioning of each 


record on the printed page. The options are as follows: 


a. When LINES is used, identifier-2 must be declared as PC 99 COMPUTATIONAL, 
or integer-1l must be a positive integral value of 0O thru 99. 
b. WRITE BEFORE ADVANCING is more efficient than AFTER ADVANCING, 
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c. When CHANNEL is used, identifier-3 or integer-2 must contain a posi- 
tive integral value of O01... 11. Identifier-3 must be declared as 
PC 99 COMPUTATIONAL. The MCP will advance the line printer's carriage 
to the carriage control channel specified. 


d. If the ADVANCING option is not specified, single spacing is provided. 


The END-OF-PAGE option applies to a file that has been assigned to a printer. 
When the END-OF-PAGE punch in the carriage control tape on the printer is de- 
tected, the statement following END-OF-PAGE will be executed. 


Option 2 must be used for writing on disk files. 


If the FROM option is specified, the data is moved from the area specified 
by identifier-1 to record-name according to the rules specified for the 
MOVE statement without the CORR or CORRESPONDING option. After execution 
of the WRITE statement is completed, the information in identifier-1 is 


available, even though that record-name is not available. 


When the WRITE statement is executed at object time, the logical record is 
released for output and is no longer available for referencing by the object 
program. Instead, the record area is ready to receive items for the next 
record to be written. If blocking is called for by the COBOL program, the 
records will be automatically blocked by the MCP, 


Short blocks of records which were written during EOF or EOJ will be of no 
programmatic concern to the user when using the file as input at a later 


time, 


If a write error is detected during a magnetic tape write operation, the tape 
record in error will be erased and a rewrite will be attempted further down 
the tape until the record is finally written correctly. A punch or printer 
write error will result in a message to the operator. The COBOL programmer 


need not include any USE procedures to handle write errors. 


The shortest allowable record which can be written on 7 and 9 channel mag- 


netic tape units is 7 bytes. 


If a CLOSE statement has been executed for a file, any attempt to WRITE on 


the file until it is OPENed again will result in an error termination, 


For files which are being accessed in a SEQUENTIAL manner, the INVALID KEY 
clause is executed when the end of the last segment of the file (last record) 
has been reached and another attempt is made to WRITE into the file. The last 
segment of a file is specified in the FILE-LIMITS clause or the FILE CONTAINS 
clause. Similarly, for files being accessed in a RANDOM manner, the INVALID 
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KEY clause will be executed whenever the value of the ACTUAL KEY is outside 
the defined limits. An INVALID KEY entry must be specified when writing to 
a file described as containing FILE-LIMITS, 


Records will be written onto DISK in either a SEQUENTIAL or RANDOM manner 
according to the rules given under ACCESS MODE, For RANDOM accessing, SEEK 
statements may be explicitly used for record determination as defined under 
ACCESS MODE, SEEK, and READ, 


If the size and blocking of records being accessed in a RANDOM manner is such 
that a WRITE statement must place a record intc the middle of a biock without 
disturbing the other contents of the block, then an implicit SEEK will be 
given to load the block desired (provided that an explicit SEEK has not been 
given). If the file is being processed for INPUT-OUTPUT, then either an ex- 
plicit or implicit SEEK for a READ statement will suffice to load the block 


between the READ and WRITE statements. 


If the value of the ACTUAL KEY is changed after a SEEK statement has been 
given and prior to the WRITE statement, an implied SEEK will be performed 
and the WRITE will use the record area selected by the implied SEEK as the 
output record area. The value contained in the ACTUAL KEY will not be af- 
fected, 


For RANDOM access, when records are unblocked, the use of a SEEK statement 
related exclusively to WRITE is unnecessary, and may result in an extra 


loading of the record from disk, because the compiler is, in general, unable 


to distinguish between SEEK statements that are intended to be related to a 
READ and those intended to be related to a WRITE. 
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Figure 7-6. Coding of PROCEDURE DIVISION 


SECTION ‘ 


B 1800/B 1700 COBOL READER-SORTER 


GENERAL 


ar documents and 


ink” character 


> two functions that must oe com- 
I : ‘ of time fol each document. _ ‘The first function 
is the Read: ‘the: ‘second #unetion: is Pocket erect. Read is S @6TPeéxplanatery’ 


Pocket Select refers to the pocket selection information that must be issued 


Py the program during the time the document moves from the read station to the 
: (ppeket). 3 area. =a — oO 


1 eran This section is bored to the peas reader-sorter i a "USE" 
statement (covered later in this section). The purpose of this DECLARATIVE 


Pocket-Select “DECLARATIVE section. If the Aucune reaches the entrance to 


section, i 
section, | : 


that it has fewer 
Feeder, allows: ee 


the. MCP. 
receiving a 


is importa 


sections to 


‘D: Immediat 


eater valid “pocieer. ie 


etepp rach: 


it should yee esvent 


phe COBOL Verbe or con 
(communication between t 


a. DATA SEGMENTATIO 
ee We READ 
6 WATE 
dic CLOSE: SoS 
oe So 
f. SORT 
eo SEEK 
hy ZIP 
ee i. ACCEPT 
ies Snipes 


operation of the Pocket- Select ‘DECLARATIVE section except in the ¢ 
case: : v6 ve 
When | a. particular document: hid: — peed paekéee i éeleetad 
the pocket area, the TOO-LATE-TO- POCKET- SELECT. exception. ¢c 
and is seen only by the non~DECLARATIVE - section. It” is here that the 
programmer must deal with this exception. nOtherwied: the same exception 
conditions and data which determined ‘the pocket selected will be seen. in 
the non-DECLARATIVE section where. the me ta can | be captured, Normally, 
pocket selection is transparent to the non-DECLARATIVE section. 


ENVIRONMENT DIVISION REQUIREME! 


Fach reader-sorter tb be. serviced thi og am must have. a ‘file assigned to 
it. in the ENVIRONMENT DIVISION. This” is accomplished in the FILE~CONTROL : 
paragraph of the INPUT-OUTPUT SECTION by use of the SELECT statement. 


The construct of this statement is: 


SELECT file-name ASSIGN TO REA DER-SORTER; 0 
RESERVE integer ALTERNATE AREAS; | 
ACTUAL KEY ts data-name. 


The ‘file-name must be described ina File Description cP) entry in the DATA 
DIVISION. | 


The RESERVE clause allows a variation ‘of ‘the number of input physical, record © 

rst be supplied by the MCP at ‘the time the file is. opened. Each alter- 
eserved requires additional memory to be used, and is- ‘the size 
sical record as defined in the FD statement of the DATA DIVISION for that 
specific file. Up to 63 alternate areas may be specified. 


Generally a minimum of nine alternate areas should be specified in order to 
provide the non-DECLARATIVE section sufficient time to process the - document's 
while the Pocket-Select DECLARATIVE section performs the pocket selection» 
function. - 


The data-name specified in the ACTUAL KEY clause must be defined in the 
WORKING-STORAGE SECTION with a length of 112 characters. The ACTUAL KEY data- 
name specifies the data area where document information is to be placed by the. 
MCP for use by the Pocket-Select DECLARATIVE section in the decision as to 


which pocket the document is to be routed. 


The high-order 24 digits (COMP) of data-name contain result descriptor infor- 
mation for the document which is to be pocket-selected. This result descrip- 
tor describes exception conditions found while reading the document. The 
remaining 100 characters contain the data read from the document, 
fied, with blank-fill to the left. 


The content of data-name is undefined during the execution of the non- 

DECLARATIVE section. A more detailed description of the result descriptor 
portion and the actions required of the program when exception conditions 
occur appears later in this section of the manual (See Exception Condition 


Handling). 


The I-O CONTROL paragraph uses the APPLY clause to specify the specific 
reader-sorter read station(s) to be used. At present this 
mentation purposes only. When specified, the construct for this clause is: 


MICR 


APPLY | = 


file-name 


DATA DIVISION REQUIREMENTS 


The FILE SECTION of the DATA DIVISION must contain a File Description (FD) 


entry for each reader-sorter file SELECTed. 
The construct of the File Description sentence is: 
FD file-name. 


Other clauses of the FD entry are optional as described in Section 6. It 


should be noted that blocked reader-sorter files are not allowed. 


The file record area for the reader-sorter file must be the same data type and 
length as the ACTUAL KEY data-name which was specified in the ENVIRONMENT DIVI- 
SION. The data which is available in the ACTUAL KEY data-name area during the 
Pocket-Select DECLARATIVE section is available to the non-DECLARATIVE section 
in the file record area. (See the TOO-LATE-TO-POCKET-SELECT discussion later 


in this section of the manual. ) 


PROCEDURE DIVISION REQUIREMENTS 


CLOSE 


CLOSE 


CONTROL 


CONTROL 


| value of 31 
jon may only ae 
e ecuted, causes: ane 


ne NEA 


agente section and, in addition, the 


ie 
30 


CONTROL 


sr to light 


FORMAT 


FORMAT 


function at: this Bpdek is” ee: piace the alien received from the Reader-Sorter 


eo! ASHER BIER H AY. Identifier- 2 is to 


ae ok aracter. ‘of that. 
: er is encountered 


the “most-significant character is set to 


: -significant character is found to be a CANNOT-READ character, it 
is treated as a transfer character, and is placed into the subfield after a 
blank has been placed into the least-significant position. 
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FORMAT 


MICR-EDIT 


MICR-EDIT 


oe) 

i 
| 
Le] 


OPEN 
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USE 


EXCEPTION CONDITION HANDLING 


K-BAND, HALT-FLOW-STOPPED , 


caused By. one or more of the following: 


continues to 
oehan and 


beter eet “Since his 
an ae oe m8 “between thes 


DIGIT-5- RESERVED _ ‘This digit is reserved. 


CANNOT-READ - A: GanOT-neaD SHA iCLGH indicates that one or more of the charac- 
ters detected by the reader-sorter could not be correctly interpreted, Note 
that UNENCODED-DOCUMENT and CANNOT~READ are mutually exclusive. 


must not be 


selected: are eorrestly packet 
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diately. In this case the operator. 
om the transport area and manually 

ed that there. is no indication, except to: 

| oceurre a 


and where various documents have 


rs after the read result has been returned is 


en though documents may be halted in the trans- 


. Tf the ght Pol was waiting for wer 


formation when the missort occurred, the pocket select information is 


ument is: Grreorea “to a nonexistent osakot ona reader-sorter with 
han 32 pockets, then that document is a missort to the last. pocket. 
is” then reported on a subsequent document. 


ata which is returned with the MISSORT condition is INVALID and must not. 

be processed. The document(s) missorted and succeeding documents which are 

ady in icon are routed to the Reject pocket. The Pocket-Select DECLARA-~ 
eTVvE: ‘geet ton must select a-pocket number greater than 31 when a MISSORT condi- 
tion is. reported in the result descriptor. 


BLACK-BAND - A BLACK-BAND condition is caused by a large black area on a docu- 
ment which is detected photo-optically by the reader-sorter. Detection occurs 
close to the Feeder so that the Feeder can be stopped without feeding the 
following document. 


A document which contains this large black area may be used to stop the feed- 
ing of documents, and to flag the end of a specific series of documents. 


The data which is returned with a BLACK-BAND condition is VALID, and may be 
processed. The Pocket-Select DECLARATIVE section must select a pocket number 
less than 32, unless there is also an exception condition reported which 
requires a pocket number greater than 31, in which case, that requirement 


takes precedence. Other exceptions or conditions are reported as in a normal 


aitio 


the document has beer 
of what is contained in 
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BLERCUGHKS 81700 CCACL COMPILER. 


MARK VI.O (10/36/76 09:58) 


TRIS PROGRAP READS ANU PRINTS MICR COCUMENTS. 


1 LIST GEFURE ANO AFTER "FORMATS 


SELECT MICKIN ASSIGN TO READER SORTER» RESERVE 9» 


PC 9(20 


MICR /EXAMPLE 

CecLlos ECEATIFICATION OIVISTION. 
COC260 REMARKS, 
COC300 Sw t = ¢ LIST AFTER "“FORFRAT" 
COC409 Sei = 
€oc5s00 SW i= 2 LEST. BEFORE *FGRKAT® 
C0C600 SW 2 = KK USE POCKET. <N> 
CCC700 ENVIRONMENT DIVISEON. 
COC8Oo ERFUT*OUTPLT SECTICA. 
C0C909 FILE*CONTROL. 
C€01000 SELECT FRI~ PICR ASSIGN TO PRINTER. 
C91100 
CCL200 ACTUAL KEY IS PCK~SEL “BUF. 
C61300 I-C-CONTRCL. 
C€61400 APPLY MICR CN MICRIN. 
c01500 CATA DIVISIGN. 
C01600 FILE SECTION. 
€01700 FC PRI-MICR. 
€01800 OL PRIVECR. 
661900 O05 PRT-ROESC 
CczoGco. O05 PRI-MRDESC REDEFINES PRTI“RCESC ae 
co2100 05 FILLER 
CCE2O0G 05 . PRI-POUCKNUM 
C€G23500 05 PRT*ITTE 
COZ4hO00 05 9PRTI-INV oe 
C0z500 FC MICREA VALLE CF ID IS UL SKX™. 
CGz600 O1 MICR<ITER. 
CGe709 5 RESULT“DESCHIPIOR. 
CO2800 10 «60RD 
C0296 88 QPERATICA*CCMPLETE 
CO2600 10 8RDe = 
C032100 8 EXCEFTION*CEREITIGN 
CC 2200 10 «RDS 
CO2300 @@ NCTREADY 
CO140G 10° RDS 
C02500 6@ UNENCODEL“O0CUMENT 
602600 16 ROS 
C03700 10 KD 
602800 88 CANT-REAC™ CHAR 
62900 - 1G RD7T*9 © 

CO4000.. 100 
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6042000 © 1Q 

CO4300 BE 
£I44CO | ) 

€04500 86 JAR 
CC46C0 10. -fOLZ | 
CO470G - 8& MESSCRI 
C04800 10 “RBL4 : 
C04900 BA: BATCHES TICKET. 
CeS000 10 RODLS = 
CC£109 a8 bALT* FLOb=! 
cos200 1G ROIG : 
COE3CO 10 AOE eee 
Gos4o0 88 TOC“LATE“TO-POCKET=SEL 
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HOG*F EUR FC 6902 
"890123456789 
"B9IOTEI45E7 8: 
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FILLER PO X(18) VA * TOT 4 a 
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FILLER PC XC23) VA ™ EXCEF a 
PCEAT*EXC PC 2222.99. 


¥ a pee) SPACES. 
HOG*DATE ci PC 99799/99888. — 
RUN@ TIME PE 9939979929808). 
FILLER PC XC87) VA ™ SMALL SYSTEMS T I 0 MICR DOCcY 
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C1e510. 7¢ 
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612700 
012800 
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013100 
C13200 
€13300 
013400 
023500 
C13600 
613700 
0134600 
013900 
014000 
014100 
014200 
C14300 


814400 
14500 « 

O14600 « 

814700 

14.800. 

- 024900. 
€15000 


PRECEDURE DIVISION. 

DECLARATIVES. . 

POCKET“SELECT“CECLARATIVE GECTION. 

USE FGR REACER*SORTER POCKET MICRIN. 

DE SC-SEARCH. . . 
MOVE SW2 TC PCK“NUM. MOVE TALLY IO STORE-TALLY. | 
If PCK@EX*COND = ¢ GO TG PROC-ITH. 

If 1 = PCK“ARDY OR PCK-DD GR PCK-TLI-RD OR PCK-JAN 
OR PCK“SORT> MOVE SFFa TC PCK“NUM+ GO TC PCK-SEL. 

PROC-ITH. | 
ADD Lt TO PCR-COUNT. 

FORPAT FCK-COCUMENT INTO USE-ITEM ON SIZE ERROR, 
GO 10 PCK-SEL. 
MICR-EDIT USE*FIELDS8 INTO USE“TC<WKA, 
IF CTALLY = 3 AND USE-TC-WKA = 96). MOVE 1 TO FLOW-STP-FLAG. | 
MOVE STGRE-TALLY TO TALLY. 
“LF POCKET*NCT*FULL GO TO PCK-SEL. 
SIP-FLOn. 
CONTROL MICRIK STOP-FLGW POCKET PCK-NUM. 
NOTE THAT EXECUTION OF THE “CCATROL™ STATEMENT WILL CAUSE 
THE DECLARATIVE SECTION TG BE EXETED. 

PCK-SEL. | 
TF FLOW*STP=FLAG = 1 GO TG STP-FLOW. 
CONTROL MICRIN. POCKET PCK-NUK. 

EAC DECLARATIVES: 


eee ee te ee ee ee ae ae ky eee eee 


MICR 
MICR 
-WICR 
MICR. 
MICK. 
NICR. 
MIER™ 
_HICR 
MICR: 
MICR. 
MICR. 


MICR 


MICR 
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-MICR 
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MICR 


MICR 
MICR 


MICR - 
MICR. 
MICR: 
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016000 | 
616100 
016200: 
616400 
016500 © 
016600 
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016800 | 
616900 — 


HCG*RIN. 


OPEN INPUT 
MOVE TODAYS- 
HOVE 


MOVE © TO CINE= 
WRITE PRIKICR 8 
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c17300 
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019000 
019100 
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619300 
0194900 
019500 
019600 


Te eat: 9 = 3 ee 
GO 19 TST-PCK. 
IST-FLOW-STGPPED. 


co To READ=1TEN. 


IF POCKET=NOT=FULL GO 

IF HALT- FLOW“STOPPEC 
MOVE 0 TO PCK-CoU 
CONTROL MICRIN POCKE 
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021500 
021600 


021700 | 
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IF £TNE-CNT > a “GO Te HOG-RIN. 
GO 30 READ“ITEM. 


ACTUAL=PRINT. 


MOVE RESQLT-DES to PRI-ROESC. 

IF EXCEPTIOA=CONDILTEON ges 
EXARINE PRI- XRDESC REPLACING ALC "0" BY “-*" 
“ELSE | nae 

EX AMLNE PRT -XROESC REPLACING ALL FO" BY =F, 

MOVE PKI-NUKBER TO @RI-POCKAUK. 

WRITE PRINICR BEFORE ADVANCING 1. 

MOVE. SPACES Te PRIMICR. cee 


EOU-RIN. 


MOVE “a 10 eeeonak. MOVE TOT-EXC TO EXC-TOT.,. 
oe INTO Tar- Exe GEVING E-PERCENT ROUNDED. 
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SECTION 9 


DATA COMMUNICATIONS 


D st tements will wait for a message and suspend program execution if 
ges are queued for that program. If an ACTUAL KEY is specified, the 


nt sets the STATION-RSN, TEXT-LENGTH, and MSG-TYPE fields of 


| D will, be executed when the datacom. network controller receives a ac 
message, -or when the MCS (if one exists) does an MCS. COMMUNICATE with | 
MESSAGE . , TYPE set to 1 and MESSAGE.VARIANT set to 3. 


WRITE requires MESSAGE-TYPE to be set to 0 if an actual key is used, as eet 
as TEXT~LENGTH set to the actual message length, and STATION-RSN to be set ‘to : 


the correct relative station number of the terminal to which the message is to. 


be sent. 


SECTION 10 


INTER-PROGRAM COMMUNICATION 


eture maintained by. the MCP as. 
have various. attributes includ- 


eae one or more “programs “may 
ue directly. User programs 
h as queue files or remote 


At means of reporting to ‘the. user program that the queue was empty 
~ during 2 READ, er that the queue was full and the WRITE did not com- 
~ plete, has been specified for queue handling. 


Queues which contain a large number of messages may be optionally 
a maintained on disk. Disk 1/0 to place or retrieve messages to or 
from disk is overlapped with user processing whenever possible. 
ds The end of file reporting on READ statements has been defined for 
e queue files in such a way as to permit label equation to other 
devices without causing incorrect reporting of end of file. 
e. Queue files may not be blocked. Records written to a queue file are 
immediately put into the queue. 
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files.” 
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at ey te Soe 


tiple queue file 
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fers apply to every member 
nembers may hold 10 mes- 
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ay contain up to two. 


two 10-character names 


c 


_. program. 
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SECTION ll 


COBOL COMPILER CONTROL 


Lilet 


11-2 


11-4 


11-5 


within the source language 
main set until reset with 
se of the non-numeric 

literal of blanks. 


Example 1: ee | oe 
To compile. a COBOL program from the. card reader and. ‘ereate - Babee 
source program blocked five on a disk file with the file-ID OF Popol) 
the following Label Equation (FILE) cards could be used: ee 


_ ? COMPILE P-N WITH COBOL SYNTAX : 
mf FILE NEWSOURCE NAME COBOL / TBST: RECORDS. BLOCK 5; a 
? DATA CARDS a ea oo os 
$ CARD LIST DOUBLE NEW 
SOURCE PROGRAM DECK ... 
? END 


To create the same program file on magnetic tape, use the following FIL 


? FILE NEWSOURCE NAME COBOL/ TESTI TAPE ‘RECORDS . BLOCK 5; 
Example 2: ow 
had been created by the de- 
new source file on disk k with 


the file-ID of TEST2, the following FIL E 4 could be used: 


? COMPILE P-N WITH COBOL SYNTAX 

? FILE NEWSOURCE NAME = TEST2; 

? DATA CARDS | 
$ MERGE NEW 

... PATCH CARDS oe ee 

? END | 


of SOURCE the following FILE card should have also been used in the a ae 
examples. ie 


If the input file had a file-ID of COROL/ TESTI, in place of the default 


2 FILE SOURCE NAME OBOE Tresht: 
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DATA MANAGEMENT 


12-1 


2 generative declaration 2 ee 


SECTION 13 


INDEXED I-O 


rd 


f input-output 
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Aes a. conceptual entity peed in “this document. to. 
xt ri cord to be accessed within a given 
a 


has no meaning for a file opened in 
record pointer is-affected:only. 


13-2 


ment was unsuccessful as 


1 as data check, parity 


13-3 


tus key 1 and status 


file-is not.affected,. 
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13-5 


13-6 


Another point to consider if the user wishes to access the same indexe 
with both COBOL and RPG programs, is that only COBOL permits alphar 


Rough Tables 


In order to minimize disk accesses wh 


rough table. if % 
requiring the binary searct = 


Sonta Las: the End-Of- “File 
i File 


‘sorted. “This does. not 


‘file-related infor— 


ly deseribes those 


Suplieitiy.  ‘Tais vat 


statement. 
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key for the file. The — 
g records of the file. 
sities etme Gude 
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General Format 


\D, REWRITE, STA 


The | CLOSE Sigicms ent 


tren 


di epbe1 lod of the file. 
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tatement need not 


13712 
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tes that the 
n for that r 


t for that _ 


0 the execu — 
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13-16 


ig associated with identi- 
been read and immediately before 


moved to the « 


13-17 


tement is logic- 


13-19 


13720 


referenced | 


13-21 


‘elational operator in the 


with a record in the file 


13-22 


13-23 
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APPENDIX A 


RESERVED WORDS 


All reserved words known to the B 1800/B 1700 COBOL compiler are listed in this 
Appendix, together with notations (X) of the DIVISION(s) inwhich the words 


are used or other reasons for reservation: 


a. for DATA MANAGEMENT (DMSIT), 


b. for future use or standards requirements. 


REASON FOR RESERVATIONS 


DIVISION 
RESERVED FUTURE/ 


IDEN ENVI DATA PROC DMSII STANDARDS 


AC 
ACCESS 


ADVANCING 
AFTER 


FTER 
ALL 


ALPHABETIC 
ALTER 
ALTERNATE 


ASCENDING - 


1 MP | Med edt oO I 


ASSIGN 
AT 


BEFORE 


| 
ge | 


BEGINNING 


| as | 14 
oo a | 
esetorttopedltt wd 

Potot tt t te t ft t tet 
Iobrottt to bt tt we todod 
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REASON FOR RESERVATIONS 


DIVISION 


FUTURE / 
IDEN ENVI DATA PHOC DMSII | STANDARDS 


RESERVED 


= > x 

- om X = s Ze 

= a X = ea = 

= xX X X - - 

_ _ xX x, _ 7 

zs X = Lb = = 

ro X = = = = 

- - - - - X 

= = = 7 X 

Matas 7 2 2 z 7 . 

CHARACTERS _ xX xX bss a 1 
CLOCK-UNITS - - = = - 

CLOSE - = = X 2 a 

<a: _ _ x . - : 

= a X a am me 

- 2 X aE = = 

- - 7 _ = xX 

- - - - - X 

CODEFTLE’ 3 : - 3 7 7 z 

COLUMN - = = = Z X 

COMMA = xX 2 = = = 

COMP = = xX = = Z 

4 | 7 _ X 7 a _ 

COMPUTATIONAL - - x = - 

re nm & _ ox, X = > 

ae - - xX - - - 

COMPUTE - - = = es 

CONFIGURATION - X - ~ - es 

CONTAINS - X = 25 = 

CONTROL - = Ss X = X 

CONTROLS - - sed an = X 

ey ee as =a _ X = = 

X X xX X ~ = 

COR. DEX ee ae - as Si - = X 

CORR - - a X & a 
CORRESPONDING - - a xX = 

a _ _ 7 7A X _ 

a _ Aa X _ Z 

CURRENCY - X ac = = = 

~ ~ - - - X 

DATA ~ X xX = = = 

oiibline 8 a _ 7 es = X = 

= 2. r 7 X = 

di: ~ _ -_ X ~ ee 

DATE-COMPILED X - xX _ ge - 

aioe WRITTEN X - - - = = 


{ 

I 

! 
~ 

I 
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REASON FOR RESERVATIONS 
DIVISION 
RESERVED 


WORD IDEN ENVI DATA PROC DMSII 
DE 


DECIMAL-POINT 
DE ee 


FUTURE / 
STANDARDS 


x Xx 
DESCENDING Xx X 
DETAIL = zs = 3 2 Xx 
= X S es = a 
= X a = 56 - 
= X a = = = 
= X = = = ue 
= X ay en = “ 
a X = = a = 
3 X = s = 
- XK a a - = 
= x = = = 
DISPLAY . p X X _ a 
DIVIDE = . Z X a 2 
x Xx Xx x é = | 
7 ee = xX a = 
= = = XK os 7 
= = 2 2 = X 
S S = X a = 
= x - X - a 
a - as X es = 
= = a X te £ 
= - = a X as 
22 “ = = = Xx 
ENDING - = 2 X ™ _ 
ENTER _ 2 . = a X 
ENVIRONMENT = X . - = = 
RO! = = 4 Xx 2 = 
= ze st X = 2: 
gE a - x X _ - 
me = sd X = a 
EVERY 2 7 7 i = xX 
INE 2 = = X i. = 
“EXCEPTION ~ - 7 7 7 x 2 
2 is X bs - 
FD = 2 X e : : 
FILE “ x x zs . 
FILE-CONTROL = Xx “ 2 7 . 
FILE-LIMIT 7 K - 3 _ : 
FILE-LIMITS = x - i = e 
FIDL oo a - - - - = = 
FILLER 2 m Xx = . 2 
FINAL - 2 = i ss ne 
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REASON FOR RESERVATIONS 


DIVISION 


RESERVED FUTURE / 
WORD IDEN ENVI DATA PROC DMSII STANDARDS 


X = 
FIRST - ~ - x = = 
. = " _ 2 x 
Ss - = - = X 
FOR oe X = Xx = z 
= i : : ‘ : : 
= = = X = = 
FROM - = Be X = = 
GENERATE = z = 2 ‘ x 
GIVING - - - xX ia - 
GO ~ ~ = X = a 
GREATER - ~ - x a Sy 
GROUP es - = - = X 
2 = = Z = X 
= re X - = = 
HEADING ;, «4 fe = z i x 
RE ‘Ss = = = . X 
= a X X _ es 
HIGH-VALUES - - xX x = - 
I-O - = = xX = = 
I-O-CONTROL - X - - = e 
eee | - . x = = = 
IDENTIFICATION - X | = = = 
IF - a ee xX > _ 
IN - | - | - | X _ | 7 
MINCED oc = © XK 2 es : 2 
INDEX - - X = = - 
INDEXED - ~ xX = is a 
INDICATE as = = 7 Z xX 
INITIATE 7 e e 7 _ X 
INPLACE ts = a X 7 _ 
INPUT - _ = xX = = 
alates OUTPUT - - - X x = 
7 is z ‘ : 7 
3 = = = =A X 7 
INSTALLATION X - - = < = 
INTERPRET - - - X a - 
INTO - - - x sz = 
INVALID ~ = X Es 
- = = a ~ xX 
= x X X = ES 
- - - X - os i 
JUST - - X a 4 = 
JUSTIFIED = 7 x : : : | 
KEY = X x X Z = | 
KEYS 2 - a a x : | 


A-4 
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REASON FOR RESERVATIONS 


DIVISION 


er ee See a eee 
IDEN ENVI DATA PROC DMSII 
- - X xX 


FUTURE / 
STANDARDS 


X 

X 

LIMITS - = zs = > X 

LINE = : : z 7 x 

LINE-COUNTER - = ss _ X 

LINES “ = as xX _ = 

LOCK - - > X > _ 

LOW-VALUE = = X X 2 _ 

LOW-VALUES a = X X 7 7 

a ~ = a X a 

MEMORY - X - = = = 

= XK = eo as a 

= X = ss = = 

= 2 = Xx = = 

= = z = Z x 

a z = xX = a 

= X = = es = 

= a = i X en 

: X - - - = ~ 

MOVE - - = xX = i 

MULTIPLE = X = re 7 7 

MULTIPLY - - - XK - - 

NEGATIVE ~ = = X = = 

NEXT a - “ X X i 

NO - X - x = = 

se : ‘ ‘i : 

= si = is = xX 

= = = = = xX 

= be X a es S 

NOT = = - X 2 7 

, : - - - - x 

NOTE & = = X : a 

“NUL : = - ~ es X =: 

NUMBER a = = . o X 

NUMERIC 2 a = X 7 a 

= = = X = = 

= S Xx = es = 

OCCURS _ = x = Me 7 

: - X - = = = 

OFF = = = = = X 
H 
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| REASON FOR RESERVATIONS | 


DIVISION 


RESERVED FUTURE / 
OMITTED = - x = = = 
ON - - - X ~ = 
OPEN - - - X ~ 2 
OPTIONAL - X = = = = 
OR - X - X - re 

= ze = = X Zs 

a = = = X = 

- - - - - X 

= = - X - as 

OUTPUT = = - X _ = 

OUTPUT- INPUT = = = X - = 

moe - - - _ ~ xX 

~ - - ~ ~ X 

- ~ - ~ ™ X 

op oe ere z = X 7 Z 

2 i | e = 

~ - ~ - - X 

~ = - - = X 

a a X Pe = 23 

= ss X _ = = 

- - _ . - X 

= ie = Xx = = 

= ae 2 X = = 

a xX _ | = - = 

ed X Z s = = 

= | a = | X = = 

PRIOR. ee ~ - = — x = 

PROCEDURE se. i ae a ae = = 

PROCEED - | ~ - | X ~ - 

PROCESSING - = _— - = 

Rodi ehe ica Qe . . : : : _ 

PROGRAM-ID X = is = = ss 

: x - - 7 _ 

= X x | es a = 

= X mn | X = Ss 

= = X ss z 

Se = = XK - = 

2 = = X i = 

= a Xx 2 es = 

= X Xx | = = 2 

= xX X a Be = 

= = X | Xx se = 

QUOTES - | ~ X hh. om - - 
i j 

RANDOM - | X - Foe | 2 = 

é - - |x “ a 

Pi ea ele, st 3 

= »4 = | 4 | _ r cn 

PSL ESS444 23% 

a | ~ & H ae | - X 
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REASON FOR RESERVATIONS 


DIVISION 
RESERVED FUTURE / 
IDEN ENVI DATA PROC DMSII STANDARDS 
Xx 


RECORD 


So 


ros od 


ELEASE 

‘ oa 
REMARKS xX - _ S 2 = 
re, Xx Be = = - 
=— iF =a ff s& - _ _ 
RENAMES - _ xX = = 2 
REPLACING - - = xX = Es 
REPORT = = = = as X 
REPORTING - _ as = re X 
REPORTS = = = = 7 XK 
RERUN - = a 2 = X 
RESERVE - X - = = as 
RESET = = = = = X 
he a as 7 2 . a - 
— : - ' - ~ = X a 
TUR - = sas X eA = 
REVERSED - - se xX = = 
ns (ne a = 
RI - - - = = X 
- - - - - xX 
~ - - - - xX 
m 7 . xX _ a a 
eect cee oe. 
ROUNDED - = = X = = 
RUN - = = xX = 2 
SAME - xX = = - ed 
= X pe = = = 
= “= X a2 z a 
SD “ = X es ee se 
SEARCH = & = X = _ 
SECTION - xX X x = = 
SECURITY xX - = me = = 
SEEK = 7 = X = ie 
SEGMENT-LIMIT - xX - - = = 
SELECT - X - = a a 
- - - - - xX 
SEQUENTIAL - = = = = 
SET ~ = = X = 
SIGN - - = = =m Xx 
= X = = se = 
SIZE = = mi X = - 
SORT - X = x = bs 
- - - - _ xX 
- - - - - xX 
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REASON FOR RESERVATIONS 


DIVISION 


RESERVED 


FUTURE / 
SOURCE-COMPUTER - X - = 2 a 
SPACE - _ xX xX os = 
SPACES - - x X a » 
SPEC IAL-NAMES - X - _ = a 
cS oa X xX = = - 
= = = X = = 
& a ai X a = 
be = as X as = 
- - - - - xX 
STANDARD - _ xX a a a 
_ — a, xX ‘i _— 
- - - ~ - xX 
= = X = a ‘= 
a INS. - - x - = sie 
STATUS _ ued a = = X 
STOP - ~ = X = 2 
- - - ~ - Xx 
= a x = xX ms 
- - - - - x 
~ - - - - X 
- ~ - - - xX 
ee Ye : - - - = xX = 
SUBTRACT - 2 = xX re é 
SUM - - - i a X 
: . - 7 ~ ¥ - = 
ae a ee X = = 
Z = ae X ms = 
es = X es a 
= es = xX a as 
= = = X = S 
es = = 4 fe = 
a as a X os = 
- es X S = Z 
= 7 = - - X 
SYNC - = D4 os a pe 
SYNCHRONIZED - - xX 2 5 ss 
= a = X = i 
a = = X = = 
TALLY - - =i X = 2 
TALLYING ~ - es xX S = 
TAPE - X mat as os 
ane : x - - 7 
= X = ~ " = 
= X = = 7 = 
# X = & “ iS 
_ X i as a = 
S Xx = ap = = 
a X = s = 7 
E - X - _ -_ - 
TERMINATE - = ee a = X 
THAN - = - X = * 
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REASON FOR RESERVATIONS 


DIVISION 
RESERVED 
WORD IDEN ENVI DATA PROC DMSII 


FUTURE / 
STANDARDS 


ms DX 


THROUGH X 
THRU X X 
- . it s 
TIMES X X 
TO X % 
- X 
= - - x 
= - - X 
at, an A | - X 
= “ ee X = = 
= 2 ul xX = = 
cs = = ms X on 
= = Bs X = es 
ns ee S.C = a 
- {| - Jf = Jf = = ey | 
ee) ee | re ( ¢ a = 
ms = X 2 = - 
VALUE - a X = zs = 
VALUES _ - X = = = 
VARYING - - a = = 
ee eee ee eee ee 
os) (ee | nn (ne? = = 
WITH - = xX X ah S 
WORDS = = - : = X 
= X = vs a = 
WORKING-STORAGE - - x = = be 
ies = ss X = = 
ee, eS cn Sn pat = 
= ws X X = = 
= = xX X a Ss 
rs - X X _ = 
ee) en, ns (, < oe _ 


APPENDIX B 


COBOL SYNTAX SUMMARY 


IDENTIFICATION DIVISION 


IDENTIFICATION DIVISION. 
[PROGRAM-ID. Any COBOL word. ] 
[AUTHOR. Any entry. ] 
[INSTALLATION. Any entry. ] 
[DATE-WRITTEN. Any entry. ] 


[DATE-COMPILED. Any entry - appended with 
current date an 


[SECURITY. Any entry. ] 


{REMARKS. Any entry. Continuation lines must 
be coded in Area B of the coding forn. ] 


ENVIRONMENT DIVISION 
ENVIRONMENT DIVISION. 
[ (comezcuraTroN SECTION. ] 
[SOURCE-COMPUTER ...] 


[OBJECT-COMPUTER ...] 


[SPECIAL-NAMES ...] 
[INPUT-OUTPUT SECTION. ] 


[FILE-CONTROL ...] 
[ I-O~CONTROL ae 


B-1l 
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CONFIGURATION SECTION. 
Option 1: 


SOURCE-COMPUTER. COPY library-name 
|, REPLACING word-1 BY word-2 


[, word-3 BY word-4] |. 


SE OR ET 


Option 2: 


SOURCE-COMPUTER. \any entry} 


Option 1: 
OBJECT-COMPUTER. COPY library~name 


|, REPLACING word-1 BY word-2 
[, word-3 BY word-4] aul 


Option 2: 


OBJECT-COMPUTER, [ 


[, SEGMENT-LIMIT IS priority-number]. 


Option Il: 
SPECIAL-NAMES. COPY library-name 
| REPLACING word-1 BY word-2 


[, word-3 BY word-4] 


Option 2: 
SPECIAL~NAMES. [CURRENCY SIGN IS literal] 
[[, implementor-name IS mnemonic~name] baal 


[, DECIMAL-POINT IS COMMA]. 
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INPUT-OUTPUT SECTION 


Option 1: 


FILE-CONTROL. COPY library-name 


data-name-2 


| REPLACING jword-1 | py 
literal-1 


word-2 
ldata-name-1| — | | 


er aataay BY eer 


word-4 al 


vee] 


lriteral-2 


Option 2: 


FILE-CONTROL. 


SELECT [OPTIONAL] file-n 


NO } 


, RESERVE {NO AREA | 
| ——————._ linteger-2/) | ALTERNATE hea 


[ \FILE-LIMIT IS | {literal-1 | {THRU 
l’ |FILE-LIMITS ARE) (data—name-1) |[THROUG 


ee pe 
ea] 
ps | 
. o 
ry 
9 
fol 
| 
to 
~—— eee” 


ACCESS MODE 1s |BANDOM | 


|SEQUENTIAL| 

ACTUAL KEY IS data-name-3] 

PROCESSING MODE IS SEQUENTIAL] . [SELECT] ... 
Option 3: 
FILE-CONTROL 


SELECT sort-file-name ASSIGN TO [ 


integer-3 | 
data-name-4 
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Option 1: 


I-Q-CONTROL. COPY library~name 
| REPLACING word-1 BY word-2 
[, word-3 BY word-4] we 


Option 2; 


; SAME [RECORD] AREA FOR file-name-2 [, file-name-3] 


DISKPACK diskpack-id | 
f SUL ELELS SiEe Cre multi-file-id 


CONTAINS file-name-5 [POSITION integer-2] 


L file-name-6 [POSITION integer-3] | Scale 


APPLY comet [Sag |} ette-nane [file-name] 


DATA DIVISION 


DATA DIVISION. 


| ELLE SECTION. 


te cee ee coe 


Reina hee serra [record-description-entry] 


| HORKING-STORAGE SECTION. 


ee et 
record-description-~entry 
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FILE SECTION. 
Option 1: 


FD file-name CQPY library~name 


word-2 
data-name~2 


literal-1l 


word-1 
te aaa BY 


REPLACING 


word-4 
} BY {data-name-4 5a é 
literal-2 


oes 
> |data~name-3 


Option 2 
FD file-~name-1l 


RECORDS | 


BLOCK CONTAINS [integer-3 TQ] integer-4 CHARACTERS | 


| vue | 


RECORD CONTAINS [integer-5 TQ] integer-6 CHARACTERS | 


rw 


VALUE IDENTIFICATION 


{literal-1 /] literal-2 [Z [1itera1-3]| 


data-~name-l 


wy 


[SAVE-FACTOR IS integer~7] | 


RECORD IS { HEekED 


LABEL | peconps ARE) | STANDARD 


|data-name-2 [, data-name-3 . . J)} 


RECORD IS _ -, _ 5 | 
DATA (eeeenbe ARE data-name-4__ [, data-name-5 ...] : 


SE SST Ee 
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Option 3: 


SD sort-file-name CQPY library~name 


worded word-2 
REPLACING { ots \ BY /data-name-2 
—a—=— (data-name-lj = 1iteral=1 
word-4 
word-3 \ 
; 7 = B data-name~4 
‘an name-3} == Janta—nane Hd. 


Option 4: 


SD sort-file-name 


[ 


E RECORD CONTAINS [integer-5 TO] integer-6 CHARACTERS] 


BLOCK CONTAINS [integer-3 TO] integer-4 | 


RECORDS | 
CHARACTERS: 


E DATA | RECORDS Ans { data-name-1 [data-name-2 | oa 


Option Il: 
Ql data~name-1; COPY library~-name 


word~-2 


d-1 
REPLACING he Tt \ BY |detecnane-3| 
—_—_—_—_— \ldata-name-2) —= literal-1 


data~name~4$ “" )isteral-2 


= word-4 
word-3 BY Jastacnanesl ; 
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Option 2: 
level~number (eee sai (; REDEFINES acs 
| 2 | IS (allowable PICTURE characters) | 
PICTURE 
> \ BLANK WHEN ZERO 
. ee 


nm 
a f MLL 


|, = 
|’ UsusTIFIED 
mae 


[DEPENDING ON data-name-3 |] 


[integer-1 TO] integer-2 TIMES 


{ JASCENDING | KEY IS data-name-4 [, data-name-5] re (tee 


L (YeDU BAW ING ) 


[INDEXED BY index-name-l1 [, index-name-2] a 


ns cE eh ne ACD EER MPRA DERE CA 2A BP EIS 
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Option 3: 


66 data-name~1 RENAMES data~name-2 beeen 


THROUGH 


data-nane-3 | Z 


Option 4: 


Ss segs. F THRU ; - 
88 condition-name (3% Toe literal 2 | ; 


. literal-3 (ae literal-4 | vee 


PROCEDURE DIVISION 


PROCEDURE DIVISION. 
| DECLARATIVES.. 


section-name SECTION. declarative-statement. 
paragraph-name, [statement.] ... 
paragraph-name. [statement. | oe 
section-name SECTION. declarative-statement. 
paragraph-name, [statement.]... 
paragraph-name, [statement. | elect ois 

END DECLARATLVES. | 

| [section-name SECTION [priority-number] |. 


paragraph-name. [statement.] ... 
[paragraph-name.] ... [statement. ] od Peel ee 


Verb Formats: 


er SP 
ACCEPT identifier | FROM  aatesnene | | 
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Option 1: 


ADD 


eee Meare 7 


identifier-1{ | lidentifier-2 { 


TQ identifier-m [ROUNDED] [identitier-n (BOUNDED | 
E ON SIZE ERROR ¢ 3 


Option 2: 
ann jliteral-1 | jliteral-2 (|f[{literal-3 | 1] 
——— lidentifier-1$ lidentifier-2) Llidentifier-3{ °*'] 


GIVING identifier-m [ROUNDED } |, identifier-n [ROUNDED] | 


: ON SIZE ERROR 


EE ee ES eS A A SE * | 


Option 3: 


ADD | 


CORR | identifier-1 TO identifier-2 


CORRESPONDING 


{ROUNDED | E 
ALTER procedure-name-1 TO [PROCEED TO] procedure-name-2 


, procedure-name-3 TO [PROCEED TO] procedure-name-4 


CLOSE file-name-1 [REEL] [,file-name-2. . .]| 


COMPUTE identifier-1 [ROUNDED] i identifier-n (ROUNDED) | 


identifier-2 
= | iterai—1 
arithmetic—expression 
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Option 1: 


COPY library-name. 


Option 2: ieee eee ee es ee cr, 
COPY library-name 


word-2 


| REPLACING ea BY /identifier-1 
literal-1 


{|data-name-3 


word-4 
| {jword-3 BY [ident irier-al | | 


literal-2 


{literal-1 | [ literal-2 
DISPLAY lidentifier-1{ |’ lidentifier-2) °°° 


[ur |B ace anne 
mnemonic-name 


Option 1: 


literal-1 


DIVIDE : dent (ie sed 


INTO identifier-2 [ROUNDED ] 
E ON SIZE ERROR 
Option 2: 


» {literal-1 | as literal-2 
DIVIDE (B22! jidentifier-1! (Into! lidentifier-2 


GIVING identifier-3 [ROUNDED |] 
| REMAINDER identifier-5 (ROUNDED) | 


E ON SIZE ERROR 
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Option 1: 
ALL 
EXAMINE identifier -1 TALLYING LEADING 
[UNTIL] FIRST 


literal-2 } 
identifier-3j 


fliteral-1 
lidentifier-2 


| REPLACING BY 


Option 2: 


ALL 
EXAMINE identifier-1 REPLACING ? LEADING 
[UNTIL] FIRST 


{literal-1 
lidentifier-2 


jliteral-2 


BY jidentifier-3 


procedure-name-n DEPENDING ON identifier 


Sition-1: {sentence-1 ) 
Cone > |NEXT SENTENCE | 
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Option 1: 


{identifier-1 


aoe {literal-1 


TO identifier-2 [, identifier-3] ... 


Option 2: 


CORR 


MOVE. ) CORRESPONDING 


identifier-1 TO identifier-2 


B-12 
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literal-1l \ BY yi tera se 


MULTIPLY Seer ien identifier-2 


[GIVING identifier-3] [ROUNDED] 


E ON SIZE _ ERROR 


Option 1 Paragraph NOTE; 
Paragraph~name. NOTE any comment. 


Option 3 Sentence NOTE: 
NOTE. Any comment. 


Option 1: 


OPEN 


a file-~name-1 


| 
|oureur file-name-3 [WITH NO REWIND] [file-name~4...] | hs 4c 
[ | SRRUT-OUTPUT | file-name-5 al 


ile-name-9 


Option 2: 
_ (QUTPUT 
OPEN +2 file-name 


INPUT-OUTPUT 


[WITH PUNCH] 


Option 1: 
THRU 


PERFORM procedure~name~] [eee ce | procedure-name2 | 
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Option 2: 


THRU | 
PERFORM procedure-name-1 | THROUGH | procedure-name-2 


j integer-1 


| identifier-10; 4MES 


Option 3: 


PERFORM procedure-name-1 [eee | pabceainexianes2 | 


index-name-2 
BY 


index—name-1| : oe 
VARYING acai FROM | ilentifier=2 


jidentifier-3) eee aan 
tliteral-3 {| UNETE condi t rene | APTER identifier-4| 


index-name-5 nites saanese 
FROM )identifier-5$ BY 
——— : — literal-6 { 
literal-—5 


ree eee { index—name-7 
UNTIL condition a [ arrer | identifier-7 FROM 


identifier-8 literal-9 


“| UNTIL condition-3| 
literal-8 


index-name-8 : sce 
| | BY Freee 


Option 1: 


READ file-name [INTO identifier] 


Option 2: 


READ file-name RECORD [ INTO identifier | 


_ {| AT END 
E | INVALID KEY { 


RELEASE record-name [ FROM identifier ] 


RETURN file-name RECORD [INTO identifier ] 


sta 


|; aT END statement-1 [ 


Appendix B (Cont) 


Option 1: 


SEARCH identifier-1 | VARYING 


identifier-2 


AT END imperative-statement-1] 


Option 2: 


SEARCH ALL identifier-3 [; AT END imperative-statement-2] 


; WHEN condition-3 


\ 
NEXT SENTENCE } 


SEEK file-name RECORD [WITH KEY CONVERSION] 


(index-name—3 ) 


SET findex-namenl] | rf findex-name-2} 7 T identifi 3 
lidentifier-if |’ Yidentifier-2 vee | Ee eee ( 

Option 2: 

SET index-name-4 [, index-name-5 ... ] ome a \ i besean aie 
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file-name-1 


| WITH file-name-4 | | RESTART WITH data-name-5 | 


DESCENDING | ee o _ = 
ON 12 CENDIN KEY data~name-1 [, data-name-2] 


DESCENDING | = Z = e 
lon | DESCENDING KEY data-name-3 [, data-name-4] + | oe 


THRU 
INPUT PROCEDURE IS section~name-1l iapeouen soevibieuanete! 


USING file-name~2 I 
eae - THRU Seen 7 
QUTPUT PROCEDURE IS section-name-3 [aaesocn } section-name-4 


GIVING file~name-3 


stop {FUT rall 


——=—=— (literal 
Option 1: 
literal-1 \ | fliteral-2 
SUBTRACT de een E peer | FROM 


identifier-m [RQUNDED] 


E ON SIZE ERROR 


Option 2: 


literal-1 eee literal-m 
SUBTRACT Vaceieroea [ ee eee ee EROM resus 
GIVING identifier-n [ROUNDED] E identifier-o [ROUNDED] | ree 


E ON SIZE _ ERROR 


EE RITE ETC CREAN NET EA A TAA A. Sion 
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Option 3: 


SUBTRACT Pease identifier-1 FROM identifier-2 


CORRESPONDING 


[ ROUNDED ] ; ON SIZE ERROR 


Option 1: 


file-name-1 [, file-name-2] ...) 
INPUT 

INPUT-OUTPUT 
i-0 


USE AFTER STANDARD ERROR PROCEDURE ON 


A EE i TERE 


Option 2: 


USE_FOR KEY CONVERSION ON file-name-1 [, file-name-2] ... 


B-17 


Appendix B (Cont) 


WRITE record-name [FROM identifier-1 ] 


integer-1 
identifier- 


o| LINES 


AFTER 
|S EFOn ADVANCING integer-2 
—— TO CHANNEL identifier-3{ 


‘ END-OF-PAGE } 


AT imperative-statement 


WRITE record-name [FROM identifier-1] 


INVALID KEY 
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ERROR NO. 


000 


~~ = 


VUL 


C 


COMPILER ERROR MESSAGES 


MESSAGE 


FILE-NAME EXPECTED 
INTEGER LITERAL REQUIRED 

INVALID LITERAL 

RESERVED WORD REQUIRED 

PARAGRAPH HEADER EXPECTED IN AREA A (COL. 8-11) 
MISSING DIVISION 

DOLLAR CARD ERROR 

"DIVISION’ REQUIRED 

COMPILER ERROR 

MISSING PERIOD 

RESERVED WORD OR DATA NAME REQUIRED 

COPY REPLACING OR MNEMONIC LIST OVERFLOW 
DUPLICATE MNEMONIC NAME 

ILLEGAL WORD 

IMPROPER LABEL RECORD(S) DECLARATION 

ILLEGAL NESTED COPY | 

ILLEGAL COPY OPERAND 

STANDARD OR NON-STANDARD OR ASCII REQUIRED 
DUPLICATE REPLACING 

ILLEGAL SUBSCRIPTING 

ILLEGAL LIBRARY NAME 

ILLEGAL TYPE 

ILLEGAL QUALIFICATION 

"SECTION" REQUIRED 

MISSING FILE NAME 

A PARENTHESIS WAS EXPECTED HERE 

MISSING LABEL QUALIFICATION...MONITOR 

NO FD OR SD 

INVALID FD 

ILLEGAL LEVEL 

ILLEGAL DATA NAME 

RELATIONAL OPERATOR REQUIRED 

PICTURE SIZE ERROR 

"PROCEDURE" EXPECTED 

ILLEGAL FD OR SD IN WORKING-STORAGE 

PRIORITY NUMBER ERROR 

MISSING IMPLIED LABEL OR LABEL QUALIFICATION 
MISSING SECTION 

NO "USE" 

PARAGRAPH-NAME OR SECTION-NAME REQUIRED 

VERB OR PARAGRAPH-NAME OR SECTION-NAME REQUIRED 
MISSING FILE NAME 

ILLEGAL LABEL RECORD REFERENCE OUTSIDE DECLARATIVES 
ILLEGAL ARITHMETIC OPERAND 

MISSING "=" OR "FROM" 

NO VALID CORRESPONDING OPERANDS 


C1 
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ERROR _NO. 


C-2 


047 


048 
049 
050 
051 
052 
053 


054 


055 


056. 


057 
058 
059 
060 
061 
062 
063 
064 
065 
066 
067 
068 
069 
070 
071 
072 
073 
074 
075 
076 
O77 
078 
079 
080 
081 
082 
083 
084 
085 
086 
087 
088 
089 
090 
091 
092 
093 


094 
095 
096 
097 
098 
099 
100 


MESSAGE 


COMPOSITE ARITHMETIC SIZE > 125...MAY USE LARGE AMOUNT OF 
CORE 

MISSING "END DECLARATIVES" 

MISSING "DECLARATIVES" 

ILLEGAL MOVE OPERAND 

"TO" REQUIRED 

AN ALPHABETIC ITEM CANNOT BE MOVED TO A NUMERIC ITEM 

ILLEGAL GROUP TO ELEMENTARY MOVE 

ILLEGAL "ALL" LITERAL 

ILLEGAL SUBSCRIPTING OF A SUBSCRIPT 

SUBSCRIPT NOT S-SIGN OR UNSIGNED 

SUBSCRIPT NOT NUMERIC INTEGER 

SUBSCRIPT NOT ELEMENTARY ITEM 

ILLEGAL MIXING OF INDEX AND SUBSCRIPT 

EXPLICIT DATA NAME TABLE OVERFLOW 

THIS DATA NAME IS NOT DESCRIBED IN THE DATA DIVISION 

QUALIFIER ARRAY TABLE OVERFLOW 

ILLEGAL QUALIFIER 

INSUFFICIENT QUALIFICATION 

OVERLAPPING CORRESPONDING OPERANDS 

NO MATCHING CORRESPONDING OPERANDS 

CORRESPONDING NAMES ARE THE SAME 

FD NAME ILLEGAL FOR CORRESPONDING 

CORRESPONDING DATA NAME NOT GROUP ITEM 

DUPLICATE PARAGRAPH OR SECTION NAME 

LABEL NOT UNIQUE 

LABEL QUALIFICATION NOT A SECTION 

ALTER TABLE OVERFLOW 

QUALIFIER LABEL TABLE OVERFLOW 

REFERENCED PARAGRAPH OR SECTION DOES NOT EXIST 

LABEL QUALIFIER IS NOT UNIQUE 

LABEL RECORD IS NOT AN O1 LEVEL 

ILLEGAL CONDITIONAL STATEMENT 

ILLEGAL DOUBLE NEGATIVE 

INVALID IMPLIED SUBJECT OR MISSING RELATIONAL OPERATOR 

PICTURE TABLE FULL : RECOMPILE 

PICTURE SPECIFIED ON A GROUP ITEM 

RENAMES OPERAND OUT OF RANGE 

RENAMES OPERAND LEVEL CANNOT BE 01 OR 66 OR 77 OR 88 

RENAMES OPERAND IS SUBSCRIPTED 

DUPLICATE NAME 

"RENAMES" REQUIRED 

GROUP RENAMES ITEM ADDRESS OR LENGTH NOT 0 MOD 2 

BLANK WHEN ZERO SPECIFIED FOR NON NUMERIC CLASS 

JUSTIFIED SPECIFIED FOR NUMERIC OR EDITED NUMERIC CLASS 

UNSIGNED INTEGER EXPECTED 

"OCCURS" SPECIFIED FOR LEVEL 01 OR 77 

VARIABLE LENGTH DISK FILE MUST HAVE SEQUENTIAL ACCESS AND 
NO FILE LIMITS 

NON-ZERO VALUE EXPECTED 

DUPLICATE "VALUE" CLAUSE 

ILLEGAL "VALUE" LITERAL 

DATA CLAUSE EXPECTED 

ILLEGAL DATA CLAUSE FOR GROUP ITEM 

ILLEGAL 4 BIT SPECIFICATION FOR HARDWARE DEVICE 

"ZERO" EXPECTED 
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MESSAGE 


ASCII MAY BE SPECIFIED ON ONLY WORKING-STORAGE LEVEL. 


01 OR 77 


MISSING "OCCURS" 


FOR INDEX~NAME 


INDEX NAME EXPECTED 
LEVEL NUMBER EXPECTED 

LEVEL NOT 01 THRU 49, 66, 77, OR 88 

LEVEL 77 MUST FOLLOW ONLY WORKING-STORAGE SECTION 
PICTURE REQUIRED FOR ELEMENTARY DATA NAME 

NO DATA CLAUSE FOR INDEX DATA ITEM 

COMPUTATIONAL ITEM NOT NUMERIC 


EXPECTED A COLON 


IN MONITOR STATEMENT 


IMPROPER REDEFINED NAME 

LEVEL NUMBER NEQ REDEFINED LEVEL NUMBER 
REDEFINED OPERAND IS SUBSCRIPTED 
REDEFINED GROUP ADDRESS IS ODD 

VALUE CANNOT BE SPECIFIED FOR SUBSCRIPTED ITEM 
VALUE CANNOT BE SPECIFIED FOR REDEFINED AREA 
VALUE CONFLICTS WITH GROUP VALUE 

FILLER ADDED TO PREVIOUS ITEM 

REDEFINED AREA NEQ REDEFINING AREA 
USAGE CONFLICTS WITH GROUP USAGE 
SUBSCRIPT MAXIMUM IS 3 

INCONSISTENT LEVEL NUMBER 

01 LEVEL NUMBER EXPECTED 

EXPECTED 

FILE PREVIOUSLY SELECTED 

FILE NOT SELECTED 

FILE INFO TABLE FULL 

HARDWARE NAME EXPECTED 

SD FILE NOT ASSIGNED TO DISK OR TAPE 
ILLEGAL CHARACTER 

WORD EXCEEDS 30 CHARACTERS 

INVALID NUMERIC OR UNDIGIT LITERAL 

ZERO SIZE LITERAL 

MISSING RIGHT QUOTE 

WORD ENDS IN A HYPHEN 

NO ALPHA CHARACTER IN NAME 

MISSING LEFT QUOTE 

TABLE OVERFLOW IN MERGE: RECOMPILE 


"SELECT" 


MISSING 


MISSING "GIVING" 


py" OR 


t! INTO" 


"MOD" AND "REMAINDER" ARE MUTUALLY EXCLUSIVE 


MISSING 
ILLEGAL 
ILLEGAL 
MISSING 
ILLEGAL 
ILLEGAL 
ILLEGAL 
ILLEGAL 


"ERROR" 

PERFORM OPERAND 

PERFORM ''TIMES" OPERAND OR MISSING "TIMES" 
"UNTIL" 

PERFORM ''VARYING"'" OPERAND 

PERFORM ''FROM"’ OPERAND OR MISSING "FROM" 
PERFORM ''BY'' OPERAND OR MISSING "BY" 

SET OPERAND 


FILE-LIMITS SPECIFICATION GIVEN FOR SD FILE 
DESCRIPTION FOR ACTUAL KEY 

REPEAT ERROR 

FLOAT ERROR 

SIGN ERROR 

"P" SPECIFICATION ERROR 


INVALID 
PICTURE 
PICTURE 
PICTURE 
PICTURE 
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ERROR _NO. MESSAGE 
156 PICTURE SIZE SPECIFICATION ERROR 
157 PICTURE DECIMAL POINT ERROR 
158 PICTURE ERROR...IMPROPER CHARACTER PRECEDING FLOAT, ZERO 
SUPPRESS,OR CHECK PROTECT 
159 PICTURE CLASS ERROR 
160 PICTURE MASK SIZE (100) EXCEEDED 
161 VALUE OF ID CATEGORY IS NUMERIC 
162 FILE-LIMIT MUST BE PC 9(8) COMP 
163 "THRU" EXPECTED 
164 DATA NAME OR INTEGER EXPECTED 
165 "RANDOM" OR "SEQUENTIAL" EXPECTED 
166 SD FILE MUST BE SEQUENTIAL 
167 ACTUAL KEY REQUIRED 
168 "BACKUP" EXPECTED 
169 FILE-CONTROL CLAUSE EXPECTED 
170 BACKUP FOR LINE PRINTER OR PUNCH ONLY 
171 ILLEGAL USE OF FILE-NAME OR CONDITION-NAME 
172 "MULTI-FILE-ID" EXPECTED 
173 FILE NOT ASSIGNED TO TAPE OR DISK 
174 I~O CONTROL CLAUSE OR ".'' EXPECTED 
175 APPLY CLAUSE NOT IMPLEMENTED 
176 FILE NOT ASSIGNED TO HARDWARE DEVICE 
177 DECLARATIVES NOT 1ST ITEM IN PRO.DIV. OR USE NOT BETWEEN 
SECTION & PARAGRAPH 
178 CONDITION-NAME LITERAL REQUIRED 
179 "VALUE" REQUIRED 
180 VALUE THRU...1ST LITERAL GEQ 2ND LITERAL 
181 I/O OPERAND MUST BE 01 RECORD OF A FILE 
182 I/O OPERAND CANNOT BE LABEL RECORD 
183 I/O OPERAND MUST BE SORT FILE 
184 I/O OPERAND MUST BE FILE 
185 I/O OPERAND CANNOT BE WORKING-STORAGE 01 RECORD 
186 I/O OPERAND CANNOT BE SORT FILE 
187 CAN MONITOR ONLY ON FILE 
188 SORT KEY NOT WITHIN SCOPE OF SORT FILE 
189 SORT STATEMENT NOT PERMITTED IN DECLARATIVES SECTION 
190 MISSING "ASCENDING" OR "DESCENDING" 
191 SORT KEY CANNOT BE SUBSCRIPTED 
192 MISSING SORT KEY 
193 NUMBER OF SORT KEYS GREATER THAN 40 
194 SIZE OF KEY TOO LARGE 
195 MISSING " INPUT" /"OUTPUT"' /" USING" /"'GIVING" 
196 USING/GIVING FILE REC SIZE NEQ SORT REC SIZE 
197 MISSING SORT INPUT/OUTPUT PROCEDURE NAME 
198 SORT THRU PROCEDURE APPEARS BEFORE BEGINNING POINT 
199 GO TO DEPENDING OPERAND MUST BE ELEMENTARY DATA~NAME INTEGER 
200 MORE THAN 1 ACCEPT OPERAND 
201 MISSING WORD OR LITERAL 
202 NOT READABLE/WRITEABLE HARDWARE 
203 GO TO DEPENDING LABEL LIMIT (1022) EXCEEDED 
204 FILE~LIMITS REQUIRE "AT END" OR "INVALID KEY" 
205 ILLEGAL READER~SORTER OPERAND 
206 MISSING "DEPENDING" IN GO TO 
207 READ/WRITE/SEEK ON SD GR RELEASE/RETURN ON FD 
208 SEEK FILE NOT RANDOM DISK 
209 ILLEGAL ADVANCING/STACKER OPERAND 
210 INVALID I/0 OPERAND 
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MESSAGE 


MINUS SIGN NOT ALLOWED 

MISSING GO TO LABEL 

GO TO MUST BE TERMINATED BY ".'" OR "ELSE" 

ILLEGAL OPTION FOR I/O DEVICE 

INVALID OR MISSING OPEN TYPE 

ATTEMPTED ALTER OF NON-GOTO PROCEDURE-NAME 

CHANNEL NUMBER GTR 11 

RESERVED WORD (VERB) REQUIRED 

CURRENT SECTION MUST HAVE SAME PRIORITY AS REFERENCED GOTO 
PROC 

TAPE FILE CANNOT HAVE 2 NAMES 


DYNDDCNTN A TT NDOT ADAMTAN MTA 
EAPRCTED A FILE YoU i LUN CLAU E 


MISSING FILE CONTAINS CLAUSE - 1 AREA OF 500 BLOCKS BY DEFAULT 
RECORDS PER AREA MADE MULTIPLE OF RECORDS PER BLOCK 
DATA DICTIONARY FULL : RECOMPILE 

REDEFINES NOT ALLOWED ON O01 RECORD OF FILE 

MISSING FILE RECORD DESCRIPTION 

BLOCK SIZE NOT MULTIPLE OF MAXIMUM RECORD SIZE 
ARITHMETIC OPERAND MUST BE ELEMENTARY ITEM 
ARITHMETIC OPERAND CANNOT BE INDEX ITEM 

ARITHMETIC OPERAND MUST BE NUMERIC 

ARITHMETIC LITERAL OPERAND MUST BE NUMERIC 

FILE LABEL RECORDS OMITTED 

DUPLICATE USE PROCEDURE 


MAN AI nD A 
MONITOR ALLOWED ONLY ON FILE 


CANNOT MONITOR ON SORT FILE 

MONITOR ALLOWED ON LINE PRINTER ONLY 

OBJECT OF SEARCH MUST BE’ INDEX 

MISSING ALTER LABEL 

DATA~NAME REQUIRED 

DATA~NAME OR INDEX~NAME REQUIRED 

WHEN CLAUSE REQUIRED 

ILLEGAL USE OF RESERVED WORD 

ITEM NOT DISPLAY 

DATA LENGTH EXCEEDS 1 CHARACTER 

ILLEGAL USE OF FIRST IN EXAMINE 

MISSING FIRST IN EXAMINE 

SIGN CONDITION OPERAND MUST BE ELEMENTARY NUMERIC OR 
ARITHMETIC EXPRESSION 

CLASS TEST OPERAND CANNOT BE ARITHMETIC EXPRESSION 

CLASS TEST OPERAND MUST BE DISPLAY 

NUMERIC VERSUS ALPHA COMPARE IS ILLEGAL 

VIOLATION OF ANSI RULES FOR PERFORMING OVERLAYABLE SEGMENTS 

RECEIVING FIELD TRUNCATION 

FIELD TREATED AS 8 BIT DISPLAY 

SEQUENCE ERROR 

LITERAL EXCEEDS 160 CHARACTERS 

CLASS TEST OPERAND CANNOT BE ASCII 

MISSING SUBSCRIPT 

MISUSE OF CONDITION-NAME 

COMPARISON OF INDEX DATA ITEM MUST BE AGAINST INDEX DATA 
ITEM OR INDEX NAME 

COMPARISON OPERANDS MUST HAVE SAME USAGE 

ILLEGAL USE OF "NEXT SENTENCE" 

CANNOT COMPARE LITERALS 

CANNOT COMPARE INDEX~NAME VS ZERO OR - LITERAL 

SORTER FILE RECORD NOT MOD 112 IN LENGTH 
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ERROR NO. MESSAGE 

265 CANNOT BLOCK SORTER FILE 

266 GROUP NAME CANNOT BE "FILLER" 

267 IF STATEMENT MUST BE TERMINATED BY ".'" OR "WHEN" 

268 LITERAL SUBSCRIPT CAUSES OUT OF BOUNDS ERROR 

269 HARDWARE MUST BE READER-SORTER 

270 READER-SORTER ACTUAL KEY NOT IN DATA SEGMENT ZERO 

271 RECORDING MODE BINARY NOT ALLOWED 

272 MISSING MONITOR DECLARATION (TO DECLARE DUMP FILE) 

273 MULTI RECEIVING FIELDS ILLEGAL WITH CORRESPONDING OPTION 

274 TAG-KEY GIVING FILE MUST HAVE 01 RECORD OF PC 9(8) CMP 

275 TAG-KEY SORT REQUIRES GIVING FILE, RECORD OF PC 9(8) CMP 

276 COMPILER ERROR IN CODEGEN GET [ (<+-&$*).;-/, G= ]#@:>4 7**<4>$ 

277 COMPILER ERROR IN CODGEN GET.TRASH [ (<-&$*) ;-/, %=]#@: >+7¥**& 
G*K-<A>F 

278 COMPILER ERROR IN CODEGEN GET.POOL [ (<-&$*) ;-/,%= ]#@:>+7** 
&G*KL<CA>S 

279 COMPILER ERROR IN CODEGEN CONTROL [ (<:-&$*) ;-/,%=]#@:>4+74** 
RH*K <*> F 

280 COMPILER ERROR IN CODEGEN ARITH.EXP [ (<-&$*) ;-/, %= ]#@:>44 
*KEGKALC<A> F 

281 COMPILER ERROR IN CODEGEN OPND.OVER [ (<-&$*) ;-/, %=]#@:>+# 
KKYPHKARCKDS F 

282 COMPILER ERROR IN PROSYN GET [ (<-&$*) ;—/, G= ]#@: >+ F**&GERACHDG 

283 USAGE DECLARED FOR AN ASCII FILE 

284 BLOCK SIZE MADE EQUAL TO MAXIMUM RECORD SIZE 

285 CURRENT COMPILER DATA SEGMENT LIMIT OF 000 EXCEEDED... 
TEMPORARY SOLUTION=RESEGMENT 

286 COMPILER ERROR..COLUMN TOO LARGE..DOES NOT AFFECT COMPILATION 
[ (<-&$*) 5 —/, = ]H@: >+ AFKUG*ARKKASG 

287 A ROUTINE IN CODEGEN HAS ENCOUNTERED AN UNEXPECTED TOKEN.. 
COMPILER ERROR [ (<-&$*) ;-/, G= ]#@:>+4**&G** <*>G 

288 CANNOT COMPARE ALPHA VS REAL 

289 MINIMUM OF 2 OPERANDS MUST PRECEDE THE WORD GIVING IN AN ADD 

290 SUBSCRIPT NOT INTEGER (SPACE REQUIRED BEFORE LIT IF DECIMAL- 
POINT IS COMMA 

291 INVOKED DATASET NAME IS NOT A WORD 

292 EXPECTED "DB" AS A LEVEL INDICATOR 

293 INVALID DB NAME 

294 EXPECTED A DDL-~NUMBER 

295 DATA-BASE DECLARATION NOT EXPECTED IN THIS SECTION 

296 "DATA SET" EXPECTED 

297 WORK ING-STORAGE SECTION OR PROCEDURE DIVISION EXPECTED 

298 DATA MANAGEMENT LEVEL 01 DATASET NAME REQUIRED 

299 DATA BASE NAME REQUIRED 

300 DATA MANAGEMENT DATASET NAME REQUIRED 

301 SPECIFIED DATASET IS NOT THE TARGET SET OF THIS SUBSET 

302 DATA MANAGEMENT SUBSET NAME REQUIRED 

303 DATA MANAGEMENT PATH NAME REQUIRED 

304 TARGET DATASET NAME MUST BE SPECIFIED WHEN PATHNAME IS A SUBSET 

305 SPECIFIED DATASET IS NOT THE TARGET SET OF THIS PATH NAME 

306 COMPONENT NAME LIST MAY NOT BE USED WHEN PATHNAME IS A DATASET 

307 FIRST, LAST, AND PRIOR MAY NOT BE USED WITH RANDOM RETRIEVAL 

308 IMPROPER COMPONENT NAME FOR PATH NAME SPECIFIED 

309 INCORRECT NUMBER OF COMPONENT NAMES FOR PATH NAME SPECIFIED 

310 EQUAL SIGN MUST FOLLOW A COMPONENT NAME 

311 ONLY A DATA NAME OR LITERAL IS ALLOWED 

312 FROM OR INTO REQUIRED HERE 
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MESSAGE 


"INVOKE" EXPECTED 
PARAGRAPH-NAME REQUIRED FOLLOWING SECTION-NAME 
COMPILER ERROR IN CODEGEN...CODE.DISP TOO LARGE 
AN ALPHABETIC ITEM CANNOT BE MOVED TO A NUMERIC EDITED ITEM 
AN ALPHANUMERIC EDITED ITEM CANNOT BE MOVED TO A NUMERIC ITEM 
AN ALPHANUMERIC EDITED ITEM CANNOT BE MOVED TO A NUMERIC 
EDITED ITEM 
NUMERIC ITEM CANNOT BE MOVED TO AN ALPHABETIC ITEM 
NON- INTEGER NUMERIC ITEM CANNOT BE MOVED TO AN ALPHANUMERIC 
ITEM 
NON- INTEGER NUMERIC ITEM CANNOT BE MOVED TO AN ALPHANUMERIC 
EDITED ITEM 
NUMERIC EDITED ITEM CANNOT BE MOVED TO AN ALPHABETIC ITEM 
NUMERIC EDITED ITEM CANNOT BE MOVED TO A NUMERIC ITEM 
NUMERIC EDITED ITEM CANNOT BE MOVED TO A NUMERIC EDITED ITEM 
NON-NUMERIC LITERAL CANNOT BE MOVED TO A COMPUTATIONAL ITEM 
LIMIT ON NUMBER OF DATA BASES HAS BEEN EXCEEDED 
DMSTATUS MUST BE FOLLOWED BY PARENTHESIZED STATUS NAME 
THIS STATUS NAME IS INVALID 
COMPONENT AND SEARCH KEY CLASSES ARE INCOMPATIBLE 
DATASET IS NOT ALLOWED, CURRENT WILL BE ASSUMED 
NON-GRAPHIC CHARACTER IN PICTURE CLAUSE 
TOO MANY DATA MANAGEMENT PATHNAMES 
FOLLOWING STATEMENT NEEDS PARAGRAPH-NAME IN ORDER TO BE 
EXECUTED 
ILLEGAL CHARACTER IN COLUMN 7 
ORDERING NOT PERMITTED WITH RETRIEVAL KEY 
DATA ENTRY LENGTH EXCEEDS LIMIT OF 16383 DIGITS 
VA OF ID DATA-~NAME SIZE MUST BE 30 CHARACTERS 
PACK-ID ILLEGAL FOR NON-DISK FILE 
MISSING OR ILLEGAL RESTART DATASET 
MISSING COMPONENT LIST 
TARGET DATASET INVALID WITH DATASET PATHNAME IN THIS FORMAT 
ORDERED PATHNAME INVALID IN ORDERED ACCESS FORMAT 
INPLACE INVALID FOR TAPE SORT 
ILLEGAL SORT TAPES DATANAME 
OPTIONAL WORD USED AS A PROCEDURE-NAME 
FILLER USED AS A CONDITIONAL VARIABLE NAME 
Q-MAX-MESSAGES EXCEEDS 255 
MAXIMUM OF 9 EVENTS EXCEEDED 
RECORD CONTAINS SIZE NOT = MAXIMUM FILE RECORD SIZE 
2 TO 8 MERGE FILES REQUIRED 
USING REQUIRED IN MERGE STATEMENT 
VARIABLE LENGTH RECORDS ILLEGAL IN TAG-SEARCH OR INPLACE SORT 
VARIABLE LENGTH RECORDS UNUSABLE WITH TAG~KEY SORT 
FILE STATUS MUST BE TWO CHARACTERS LONG 
RECORD KEY NOT A DATA-NAME WITHIN THE SELECTED FILE 
RECORD KEY MUST BE SPECIFIED FOR AN INDEXED FILE 
ORGANIZATION MUST BE INDEXED FOR ACCESS TO BE DYNAMIC 
EXPECTED SEQUENTIAL OR INDEXED ORGANIZATION 
EXPECTED FILE STATUS DECLARATION 
MISMATCH OF FILE ORGANIZATION/ACCESS CONSTRUCTS 
INDEXED FILE REQUIRES USE PROCEDURE OR AT END/INVALID 
KEY CLAUSE 
KEY NOT AS DECLARED IN RECORD KEY CLAUSE 
ACCESS RANDOM ILLEGAL FOR START STATEMENT 


rrrr FPF PP 
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ERROR _NO. 


364 
365 
366 


380 


MESSAGE 


FILE-LIMIT(S) NOT ALLOWED ON INDEXED FILES 

RECORD KEY CATEGORY MUST BE ALPHANUMERIC 

MERGE COMPILER ERROR, BAD PC. OCCUR, SUBMIT SOURCE AND 
TROUBLE REPORT 

INVALID CASE VARIABLE PASSED TO ERROR PRINT ROUTINE 
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INTRODUCTION 


B 1800/B 1700 COBOL S-Language provides the virtual machine interface between 
the code generated by the COBOL Compiler and the COBOL Interpreter. This 
appendix describes the format of COBOL S-instructions and then explains each 


operator as a member of one of the following classes: 


ARITHMETIC 

DATA MOVEMENT 
BRANCHING 

CONDITIONAL BRANCHING 


MISCELLANEOUS 


All COBOL S-language programs have associated with them a base register and a 
limit register. The area between the base and the limit is to be used as data 
space only. All program code, organized in segment form, is stored at any 
available location in memory, according to the memory management algorithms 


used by the B 1800/B 1700 operating system. 


The data space contains the COP table and various other parameters such as 


Edit Masks and Record Areas. 


Various parameters, necessary for the running of the S-Language object code 
and maintained by the MCP, are stored beyond the Limit Register in the Run 
Structure Nucleus (RSN). 


A typical COBOL program layout in memory is shown in table D-1. Special 
registers, which are part of the program layout in memory, are shown in 
table D-2. 
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BASE REGISTER 


STATIC MEMORY 


DYNAMIC MEMORY 


LIMIT REGISTER =< 


Table D-1. COBOL Program Layout 


EDIT TABLE (8 CHRS) 
COP TABLE 
SPECIAL REGISTERS 


DATANAME MONITOR 
SYMBOLS 


EDIT MASKS 


NONOVERLAYABLE USER'S 
DATA AREA 
TRASH (INTERMEDIATE RESULTS) 


ALTER TABLE (IF ANY) 


STACK 


OVERLAYABLE 
USER DATA AREA 


<—_— 


REINSTATE INFO 
& RUN STRUCTURE 


DATA DICTIONARY 


S-CODE 


Table D-2. Special Registers 


OOM MMDOOO O 


0 
1 
2 
3 
4 
5 
6 
7 
8 
3 


Ht 


DATE (JULIAN) 

(YYDDD ) 

TIME (HHMMSST) 9(7) CMP 
TODAYS-DATE 9(6) CMP 
(MMDDYY ) 

TODAYS-NAME X(9) 


Ne 
© 00 


Ww 
_ 


1ST ENTRY (COPX=1) 


DATA SEGMENT ZERO BASE 


DATA SEGMENT ZERO 


STACK BASE 


STACK LIMIT 


EXTENDABLE LIMIT REG. 
(BOJ ATTRIBUTE ) 


Appendix D (Cont) 


PROGRAM PARAMETERS 


The parameters pertaining to a particular program are listed below. The 


numbers in parentheses signify the number of bits used to contain the 


parameter. 
BDISPB1 ( 5) BRANCH DISPLACEMENT CONTAINER SIZE + 1 
DSEGZ (24) BASE OF DATA SEGMENT ZERO 
STACK-POINTER (24) BASE ADDRESS OF STACK 
STACK-SIZE ( 5) SIZE OF THE STACK 
COP~BASE (24) BASE ADDRESS OF COP TABLE 
COPB (12) COP ENTRY CONTAINER SIZE 
SEGB ( 5) DATA SEGMENT NUMBER CONTAINER SIZE 
DISPB ( 5) DATA DISPLACEMENT CONTAINER SIZE 
LENB ( 5) DATA LENGTH CONTAINER SIZE 
COPXB ( 5) COP INDEX CONTAINER SIZE 


CONTAINER SIZE 


Container size is a field size (in number of bits) necessary to contain the 


five bits allows a field value to house 32 bit addresses (0-31 


VS 
» 


S-INSTRUCTION FORMAT 


Each COBOL S-Instruction consists of an S-operator followed by arguments con- 
Sisting of a variable number of bits. The format and interpretation of these 
arguments is specified by the S-operator and is described in detail by the 

specification of the individual operators. An example of one such instruction 


format is illustrated below. 


OP1 OP2 OPND 
(3) (6) (VARIABLE ) 


seas INTO COP TABLE OR LITERAL 


S-Operators (OPI, OP2) 
The most frequently used S-operators are encoded in a three bit S-operator 
denoted as OP1l. If OPl is equal to seven, the operator is encoded in the next 


six bits denoted as OP2. If OP] is less than seven, OP2 is omitted. 
Operands (OPND) 


An operand is normally referenced indirectly through a table containing the 
attributes of the operand. An argument which references an operand in this 


manner is denoted as COPX. An operand is either contained in the instruction 
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as a literal or is referenced indirectly through the table. An argument of 
this type is denoted as OPND. The first bit of OPND is denoted as LITFLG and 


is used to indicate a literal string or COPX as follows: 


1 LITERAL STRING 
LITFLG 
0 COPX 


Literal String. When LITFLG specifies a literal, the literal string, which 
includes the literal type (LTYPE), the literal length (LLGTH), and the literal 
(LSYMB) itself in that order, is included in the code stream immediately fol- 
lowing the LITFLG. The format is as follows: 


LTYPE LLTGH1 LLTGH2 LSYMB 
(2) (3) (8) (variable) 
NOTE 
LTYPE 


00=Unsigned 4-bit 
O1=Unsigned 8-bit 
10=Signed 4-bit (sign is MSD) 


11=Reserved 
LLGTH2 present if LLGTH1 equal zero 


The length of the literal expressed in binary is encoded in LLGTH1 and LLGTH2. 
If the length of the literal is less than eight digits or characters, its 
length is encoded in LLGTH1; and LLGTH2 is omitted. If the length of the 
literal is greater than or equal to eight digits or characters, its length is 
encoded in LLGTH2 and LLGTH1 is set to zero. The maximum literal length is 


255 digits or characters excluding the sign. 


Current Operand Index (COPX). The argument COPX is an index value used to 
index into the current operand table (COP table). The number of bits (COPXB) 
used to index into the COP table is a function of the maximum number of COP 
table entries required for the source program. For example, a COP table con- 


sisting of between 512 and 1023 entries would require ten bits. 


The address of an entry is calculated by multiplying the value ''COPX" by the 
value '"COPB" and then adding the result to the base address of the COP table. 
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A COPX value of zero specifies that the COP table information is contained 
in-line in the S-Instruction itself rather than in the COP table. (See 
In-Line COP Information (ICOP).) 


NOTE 


The base address of the COP table points 


to an unused entry. 
CURRENT OPERAND TABLE (COP) 


The COP table consists of a set of entries, each of which contains the attri- 
butes of a variable. The width of one entry is a function of the source 
program and is determined by the number of bits required to express its attri- 
butes (segment number, displacement, length, subscript-or-index-flag, data 
type and ASCII flag). 


When the attributes exceed one entry, multiple entries are used to accommodate 
the additional information. Any reference to a multiple entry attribute 


points to the first of its entries. 


The formats of entries in the COP table are shown below and explained in the 


following subsections. 


|} $$$ $$ cops ——_______________>| 


DATA ADDRESS DATA SUBSCRIPT-OR- DATA ASCII 

SEG# DISPL. LENGTH INDEX-—FLAG TYPE FLAG 

(SEGB ) (DISPB) (LENB ) (1) (2) (1) 

NO. OF SUBSCRIPT-FLAG SUBSCRIPT SUBSCRIPT SUBSCRIPT TABLE 
SUBSCRIPTS FACTOR 1 FACTOR 2 FACTOR 3 BOUND 
OR INDEXES 

(2) (2) (LENB ) (LENB ) (LENB ) (DISPB ) 


PRESENT IF PRESENT IF 
NUMBER OF NUMBER OF 
SUBSCRIPTS SUBSCRIPTS 
= 01 OR 10 = 10 


PRESENT IF SUBSCRIPT- 
OR-INDEX FLAG = 1 
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Segment Number 


Segment number is expressed in binary and specifies the data segment number of 
the operand. The container size (SEGB) is a function of the maximum number of 
data segments specified in the source program. The range of the segment num- 
ber container size (SEGB) is 0 through 18. If it is zero, then there is no 
segment number container for that particular program; that program has no seg- 
mented (overlayable) data and all data references are to data segment zero, 
the non-overlayable data segment. 


Displacement 


Displacement is expressed in binary and specifies the digit displacement of 
the data from the base of the data segment. All data is stored beginning at 
an address which modulo 4-BIT must equal zero. The container size (DISPB) is 
a function of the maximum data displacement specified in the source program. 


The range of the displacement container size (DISPB) is 1 through 21. 
Data Length 


Data length is expressed in binary and specifies the number of digits or char- 
acters in the data item, excluding the sign. The container size (LENB) is a 
function of the maximum length specified in the source program. The range of 
the data length container size (LENB) is 1 through 14; however, the largest 
data item allowed is 8,191 8-BIT units or 16,383 4-BIT units. 


Subscript-or-Index-Flag 


The subscript-or-index-flag bit is true to indicate subscripting or indexing 
and false otherwise. When true, the necessary subscripting or indexing infor- 


mation is contained in the next entry or entries. 
Data Type 
Data type specifies the type of data as follows: 


00 = Unsigned 4-BIT 

01 = Unsigned 8-BIT 

10 = Signed 4-BIT (sign is MSD) 
11 = Signed 8-BIT (sign over MSD) 
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ASCII Flag 


The ASCII flag bit of the destination field influences the execution of 


certain code sensitive S-language instructions. These instructions are: 


ADD MVA CAT CMPA 
SUB MVS SMVN CMPS 
INC MVN MVT 

DEC MVZ 

INC1 

DEC] 

DIV 

DIVS 


The ASCII flag bit does not influence the execution of the following code 


sensitive instructions in which EBCDIC is assumed: 


EDIT MICF 
EDTE MICE 
CMPC 


Number of Subscripts or Indexes 


When indexing or subscripting is indicated by the subscript-or-index-flag, the 


number of subscripts or indexes required for the variable is specified as 


follows: 
00 = One 
O1 = Two 
10 = Three 


11 = Reserved 
Subscript Flag 


The bit immediately following the number of subscripts or indexes field indi- 


cates the appropriate operation: 


0 


Indexing 


Subscripting 
Subscript Factors 


Subscripting requires one to three fields, LENB bits in length, containing 
the binary factor by which each subscript value is to be multiplied to obtain 
the proper digit address. The factor is the digit displacement between ele- 
ments of the table. The value one is subtracted from the subscript value 


prior to multiplying by the factor. The subscript value may be signed. 
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If the subscript value is zero or negative, or if the final sum of the 
multiplied: subscript values exceeds the table bound, an error communicate will 
be issued. 


If the binary equivalent of the multiplied subscript value or the sum of the 
multiplied subscript values exceeds 24 bits, overflow is ignored. 


A COPX for each subscript value immediately follows the primary COPX in the 
S-Instruction. A subscript variable must not itself be subscripted or indexed. 


NOTE 


Literal subscript values are optimized 
by the compiler by building a new 


descriptor in-line in the S-Instruction. 
Indexing 


When indexing is indicated, a COPX for each index value (up to three) immedi- 
ately follows the primary COPX in the S-Instruction. An index variable must 
not itself be indexed or subscripted. 


An index value is contained in a 28 bit field. The value consists of a 4-bit 
sign followed by six 4-bit decimal digits. The value is converted to binary 


and combined with the binary data address at execution time. 


If any index value is less than zero or if the sum of the index values exceeds 


the table bound, an error communicate will be issued. 
Table Bound 


Table bound is a binary value used to specify the maximum permissible digic 
displacement from a table base for subscripting and indexing. Its container 
size is DISPB. 
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IN-LINE COP INFORMATION (ICOP) 


The format for in-line COP information differs from its COP table format (See 
"CURRENT OPERAND TABLE") when subscripting or indexing is required. 


The format for in-line COP information is as follows: 


DATA ADDRESS DATA SUBSCRIPT-OR- DATA ASCII 

SEG. # DISPL. LENGTH INDEX-FLAG TYPE FLAG 

(SEGB) (DISPB) (LENB ) (2) (2) (1) 

NO. OF SUBSCRIPT-FLAG COPX1 SUBSCRIPT COPX2 SUBSCRIPT 
SUBSCRIPTS FACTOR 1 FACTOR 2 
OR INDEXES 

(2) (1) (COPXB) (LENB) (COPXB) (LENB ) 
COPX3 SUBSCRIPT TABLE 

FACTOR 3 BOUND 
(COPXB) (LENB) (DISPB) 


a. None of the subscripting/indexing information (all entries 
following the ASCII flag) is present unless the subscript-or- 
index-flag equals one. 

bp. A COPX for each index value, or a COPX/subscript factor pair 
for each subscript value, must be present as indicated by the 
value of number of subscripts or indexes. 

ec. COPX1, COPX2, and COPX3 may be in-line entries but must not be 
subscripted or indexed. 
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INSTRUCTION SET 


ARITHMETIC 

NAME MNEMONIC OP ARGUMENTS 
INCREMENT INC 02 OPND1, COPX1 

ADD ADD 08 OPND1, COPX1, COPX2 
DECREMENT DEC 09 OPND1, COPX1 
SUBTRACT SUB 10 OPND1, OPND2, COPX1 
MULTIPLY MULT 11 OPND1, COPX1, COPX2 
DIVIDE DIV 12 OPND1, COPX1, COPX2 
DIVIDE SPECIAL DIVS 16 OPND1, COPX1, COPxK2 
INCREMENT BY ONE INC1 13 COPX1 

DECREMENT BY ONE DEC1 14 COPX1 


DATA MOVEMENT 


NAME MNEMONIC OP ARGUMENTS 

MOVE ALPHANUMERIC MVA 00 OPND1, COPX1 

MOVE SPACES MVS 15 COPX1 

MOVE NUMERIC MVN 01 OPND1, COPX1 

MOVE ZEROS MVZ 22 COPX1 

CONCATENATE CAT 32 N, COPX1, OPNDO,..., OPNDN 
SCALED MOVE NUMERIC SMVN 28 OPND1, COPX1, V, SCL 
EXAMINE EXAM 44 M, T, COPX1, OPND1, COPX2, OPND2 
MOVE TRANSLATE MVT AT OPND1, COPX1, COPX2 

EDIT EDIT 17 OPND1, COPX1, DADDR 

EDIT WITH EXPLICIT MASK EDTE 21 OPND1, COPX1, MASK 

MICR FORMAT MICF 48 COPX1, COPX2 

MICR EDIT MICE 49 COPX1, COPX2, COPX3 


BRANCHING 
NAME 


BRANCH ON OVERFLOW 

SET OVERFLOW 

BRANCH UNCONDITIONALLY 
PERFORM ENTER 

PERFORM EXIT 

ENTER 

EXIT 

GO TO DEPENDING 

ALTERED GO TO PARAGRAPH 
ALTER 


CONDITIONAL BRANCHING 
NAME 


COMPARE ALPHANUMERIC 
COMPARE NUMERIC 
COMPARE FOR ZEROS 


COMPARE FOR SPACES 
COMPARE FOR CLASS 


COMPARE REPEAT 
MISCELLANEOUS 
NAME 


COMMUNICATE 

LOAD COMMUNICATE REPLY 
CONVERT 

MAKE PRESENT 

HARDWARE MONITOR 


MNEMONIC 


BOFL 
SOFL 
BUN 

PERF 
PXIT 
NTR 

XIT 

GOTD 
GPAR 
ALTR 


MNEMONIC 


CMPA 
CMPN 


CMDX 


Natat th 


CMPS 
CMPC 
CMPR 


MNEMONIC 


COMM 
LDCR 
CONV 
MAKP 
HMON 


OP 


OP 


33 
41 
40 
42 
+3 
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ARGUMENTS 


V, BADDR 
V 

BADDR. 

K, BADDR 
K 

BADDR 


COPX1, L, DBADDRO,.. 
DADDR 
DADDR, ACON 


ae 


ARGUMENTS 


OPND1, COPX1, R, BADDR 
OPND1, COPX1, R, BADDR 
COPX1, RB, BAD! 
COPX1, R, BADDR 
COPX1, C, BADDR 


OPND1, COPX1, R, BADDR 


ARGUMENTS 


COPX1 
DADDR 
COPX1, DADDR 
COPX1, DADDR 
OPND1 


DBADDRL 
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ARITHMETIC OPERANDS AND INSTRUCTIONS 
INTRODUCTION 
In general, arithmetic operands can have any of the following formats: 


Unsigned 4-bit 

Unsigned 8-bit 

Signed 4-bit (sign is MSD) 
Signed 8-bit (sign over MSD) 


aan» ® 


Any restrictions concerning the types of operands permitted in an operation 


are specified under the description of the particular operation. 


All fields are addressed by pointing to the most significant bit of the most 


Significant unit, which in the case of a signed field is the sign. 
All fields are considered to be comprised of decimal integers, 

The absolute value is stored if the receiving field is unsigned. 
Unsigned fields are considered positive. 


When signed format is specified for the receiving field for any arithmetic 
operation, the sign position is set to 1100 for a positive result and to 1101 


for a negative result. 


Four-bit operands are interpreted in units of four bits. When a signed 
operand is specified, the sign is interpreted as a separate and leading (left- 


most) 4-bit unit which is not included in the statement of length. 


Eight-bit operands are interpreted in units of eight bits. When a signed 
operand is specified, the sign is interpreted as being contained in the left- 
most four bits of the leftmost 8-bit unit. 


The length of the operand field specifies the number of 4-bit or 8-bit units. 


When 8-bit units are specified for the receiving field of an arithmetic opera- 
tion, the leftmost four bits of each 8-bit unit, except the unit carrying a 
sign, is set to 1111 if EBCDIC or to 0011 if ASCII. 
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The value of an 8-bit unit is carried in the rightmost four bits of the unit. 
Its value is as defined below for the 4-bit unit. The leftmost four bits, 
except for a sign, are ignored. The value and sign interpretation of a 4-bit 
unit is as follows: 


UNIT VALUE SIGN 
0000 + 
0001 Zl + 
0010 2 + 
0011 3 + 
0100 4 + 
0101 5 + 
0110 6 Fe 
O111 7 + 
1000 8 + 
1001 9 + 
1010 UNDEFINED + 
1011 UNDEFINED + 
11606 UNDEFINED + 
1101 UNDEFINED - 
1110 UNDEFINED + 
1111 UNDEFINED + 


In addition and subtraction, results generated when the size of the result 
field is not sufficient to contain the result are not specified. When the 
resuit fieid is longer than the length of the result, leading zero units are 


stored. 


In ADD THREE ADDRESS, SUBTRACT THREE ADDRESS, and MULTIPLY, total or partial 
overlap of the first two operands is permitted. Results generated when the 
result field totally or partially overlaps either of the operand fields are 
not specified. 


In ADD TWO ADDRESS and SUBTRACT TWO ADDRESS, total overlap is permitted. 
Results generated when the result field partially overlaps the first operand 
field are not specified. Note that total overlap implies that the two fields 


are identical. 


No overlap of operands or result fields is permitted in DIVIDE. Results gen- 


erated under any condition of overlap are not specified. 
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ADD THREE ADDRESS 


OP: 08 
Format: 
Sree eeCeeCeeeeceerecereeree £22: 


* ADD OPND1, COPX1, COPXK2 * 
A RE KKK KR RK KK A A A RK OK OK KK 


Function: 


Algebraically add an addend denoted by OPND1 to an augend denoted by COPX1 and: 
store the sum in the field denoted by COPX2. 
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SUBTRACT THREE ADDRESS 


OP: 10 

Format: 
AOKI OK OK OK IK KK KK KK 2K 2K 2K 2K 
*« SUB OPND1, OPND2, COPX1 x 
2 KK KK 2K 2K 2 KK 2 KOK 2K 2K 2 2K 2K 2K OK KOK 2k Kk 


Function: 


Algebraically subtract a subtrahend denoted by OPND1 from a minuend denoted by 
OPND2 and store the difference in the field denoted by COPX1. 
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ADD TWO ADDRESS 
INC 
OP: 02 
Format :. 
FR ROKR ROK OK KK KK 
* INC OPND1, COPX1 x 


6 AC 2 KK i 2 2g 2K 2K 2 2 2 2 ok 2K 2K OK 


Function: 


Algebraically add an addend denoted by OPND1 to an augend denoted by COPX1 and 
store the sum in the field denoted by COPX1. 
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SUBTRACT TWO ADDRESS 
DEC 


OP: 09 


Format: 
2K OK KK 2 aK 2K kK 2 2K ok 2K ok ok 2K 2k 


* DEC OPND1, COPX1 * 
ORK KKK 


Function: 


Algebraically subtract a subtrahend denoted by OPND]1 from a minuend denoted by 
COPX1 and store the difference in the field denoted by COPX1. 
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MULTIPLY 


OP: x half 
Format: 
etter ee eee eee reece eee Seat 2 2 2 


* MULT OPND1, COPX1, COPX2 * 
2K KK KK 2K OK KK 2 2K KK OK ok 2 KK aK OK 2k 2k 2 OK ok Ok ok 


Function: 


| MULT | 


Algebraically multiply a multiplicand denoted by COPX1 by a multiplier denoted 


by OPND1 and store the product in the field denoted by COPX2. 


The result field length is the sum of the lengths of the two operands and must 


be denoted by COPX2. 


The result field is always either signed 4-bit format or unsigned 4-bit format. 
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DIVIDE 
DIV 


OP: 12 


Format: 


2K 2 2 IK OK 2 Kg 2 2 KK 2K 2 OK 2K 2K OK OK OK ok 2K 


* DIV OPND1, COPX1, COPX2 * 
FOR RR OK 


Function: 


Algebraically divide a dividend denoted by COPX1 by a divisor denoted by OPND1 
and store the quotient in the field denoted by COPX2. Store the remainder in 
the field denoted by COPX1. 


The result field length is the difference of the lengths of the two operands 
and must be denoted by COPX2. 


Results are not specified if the length of the dividend is not greater than 


the length of the divisor. 


. Lit Awe Va ke 


If the absolute value of the divisor is not greater than the absolute value of 
an equivalent number of leading digits of the dividend, the result is 


undefined. 
Division by zero results in a fatal error communicate to the MCP. 
The sign of the remainder is that of the original dividend. 


The dividend field is always either signed 4-bit format or unsigned 4-bit 


format. 
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DIVIDE SPECIAL 


| DIVS | 


OP: 16 
Format: 


ROO I Kk aK AK a a ak 


* DIVS OPND1, COPX1, COPX2 * 
OI A ACK KOK 


Function: 


This operation is performed in exactly the same manner as the standard divide 
(DIV) operator; except that when a divisor equal to zero is encountered, an 
overflow toggle is set and processing is allowed to continue. The overflow 


toggle can be manipulated by the "SOFL" and "BOFL" S-operators. 
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INCREMENT BY ONE [incr | 


OP: 13 

Format: 
2 KK OK KK OK OK 
*x INC] COPX1 x 
FORK KK KKK OK 

Function: 


Algebraically add the positive integer one to an augend denoted by COPX1 and 
store the sum in the field specified by COPX1. 
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DECREMENT BY ONE 
DECI 


OP: 14 

Format: 
2 KK KOK KK aK a ak ok 
* DEC] COPX1 * 
2 OK KOK OK KK KK KK OK 

Function: 


Algebraically subtract the positive integer one from a minuend denoted by 
COPX1 and store the difference in the field specified by COPX1. 
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DATA MOVEMENT OPERANDS AND INSTRUCTIONS 


INTRODUCTION 


In general, fields involved in data movement operations can have any of the 


following formats: 


Unsigned 4-bit 

Unsigned 8-bit 

Signed 4-bit (sign is MSD) 
Signed 8-bit (sign over MSD) 


aoe 


Any restrictions as to the type of fields permitted in an operation are speci- 


fied under the description of the particular operation. 


See arithmetic operands and instructions for a description of the four types 
of fields. 


Totally or partially overlapped fields are not permitted, unless specifically 


specified by the description of the individual instruction. 
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MOVE ALPHANUMERIC 


OP: 00 


Format: 


MVA 


FRR OR ORK KOK 


* 


MVA OPND1, COPX1 * 


2H 2 2 2K gg RK KK OK 2k 


Function: 


Move 8- 


bit or 4-bit units from the source field denoted by OPND1 to the 8-bit 


or 4-bit destination field denoted by COPX1. 


If the 
if the 


If the 


nation 


destination field is signed, it receives either the sign of the source 


source is signed, or 1100 if the source iS unsigned. 


data type of the source field is 4-bit and the data type of the desti- 
field is 8-bit, each 4-bit unit is moved to the destination with 1111 


if EBCDIC or 0011 if ASCII moved to the leftmost four bits of each 8-bit unit. 


If the 


nation 


If the 


nation 


If the 
nation 
EBCDIC 


data type of the source field is 8-bit and the data type of the desti- 


is 4-bit, the rightmost four bits are moved. 


data type of the source field is the same as the data type of the desti- 
field, each unit is moved unchanged to the destination. 


destination length is greater in size than the source length, the desti- 
field is filled in on the right with trailing spaces (0100 0000 if 
or 0010 0000 if ASCII) if the destination type is 8-bit; otherwise it 


is filled in on the right with zeros (0000). 


If the 


destination length is lesser in size than the source length, the source 


data is truncated on the right. 


Overlapping operand fields are permitted if the data type of both fields is 


the same. It can be assumed that the source is moved 24 bits (six digits or 


three characters) at a time into the destination field and that the move is 


from left to right. 
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MOVE SPACES 


MVS 
OP: 15 
Format: 
FR KOK KK KK OK Kk 
* MVS COPX1 * 
ROKR KK KK KK 
Function: 


Fill the destination field denoted by COPX1 with spaces (0100 0000 if EBCDIC 
or 0010 0000 if ASCII). 


The data type of the destination field is ignored and is assumed to be 


unsigned 8-bit. 
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MOVE NUMERIC 
MVN 


OP: O1 


Format: 


Cece TeCeerrere. £2 2 27 


* MVN OPND1, COPX1 * 
ROR RK A KK KK A KK 


Function: 


Move 8-bit or 4-bit units from the source field denoted by OPND1 to the 8-bit 
or 4-bit destination field denoted by COPX1. 


If the destination field is signed, it receives either the sign of the source 


if the source is signed, or 1100 if the source is unsigned. 
If the destination field is unsigned, the sign of the source is ignored. 


If the data type of the destination field is 8-BIT, the leftmost four bits of 
each 8-bit unit, except for the sign position, if signed, are set to 1111 if 
EBCDIC or to 0011 if ASCII, regardless of the data type of the source field. 


If the data type of the destination field is 4-BIT, the leftmost four bits of 
each source 8-bit unit are ignored and only the rightmost four bits are moved; 


if the source field is a 4-bit field, each 4-bit unit is moved unchanged. 


If the destination length is greater in size than the source length, the 
destination field is filled in on the left with leading zeros of appropriate 
type (1111 0000 if EBCDIC, 0011 0000 if ASCII or 0000 if 4-bit). 


If the destination length is lesser in size than the source length, the source 


data is truncated on the left. 


Note that a sign is placed in the leftmost four bits of a field, whether 4-bit 
or 8-bit. 


Overlapping operand fields are permitted if the data type of both fields is 
the same. It can be assumed that the source is moved 24 bits (six digits or 
three characters) at a time into the destination field and that the move is 


from left to right. 
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MOVE ZEROS 
MVZ 


OP: 22 
Format: 


2K KKK RK KK KOK Kk 
* MVZ COPX1 * 
2 KKK KKK OK Kk Ok 

Function: 


Fill the destination field denoted by COPX1 with zeros of the appropriate type 
(1111 0000 if EBCDIC, 0011 0000 if ASCII or 0000 if 4-bit). 


If the destination field is signed, 1100 is placed into the sign position. 


D-27 
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CONCATENATE 
CAT 
OP: 32 
Format: 
FORK OK KOK OO OK OK KK KK KK 2K ok 2K 2K aK a a 2k 2k 2k 2k 2k 
* CAT N, COPX1, OPNDO, ..., OPNDN * 


Cee ee Ce CeCCeCeeereererrerre ee 222 2 2 2 2 5 
Function: 


Move each of the Nt+l fields denoted by OPNDO through OPNDN, in the order 
specified, into an output string starting at the field denoted by COPX1. 


The number of source fields is specified by the 4-bit binary value N. The 


value N ranging from 0000 to 1111 is used to indicate 1 to 16 source fields. 
Each field is moved according to the rules specified for MOVE ALPHANUMERIC. 


If the destination length is greater in size than the combined source length, 
the destination fieid is fiilied in on the right with trailing spaces (0100 
0000 if EBCDIC or 0010 OO000 if ASCII). 


If the destination length is lesser in size than the combined source lengths, 


the source data is truncated on the right. 
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SCALED MOVE NUMERIC : 
SMVN 


OP: 28 


Format: 


EK KK A KK 2K EK a IC OK 2K 2K 2K KOK OK 2 OK OK OK 


* SMVN OPND1, COPX1, V, SCL * 
FO OI ARK GK Kk 


Function: 


If V equals 0, perform a MOVE NUMERIC operation after first adding the scale 
factor to the field length of the source field and assuming that the added 
portion of the field is zeros on the right. The scale factor must not be 


greater than the destination field length. 


If V equals one, perform a MOVE NUMERIC operation after first subtracting the 
scale factor from the field length of the source field. The scale factor must 


not be greater than the source field length. 


All rules specified for MOVE NUMERIC are applicable after adjustment by the 
scale factor. : 


The container size for the scale factor is the same as the container size for 
the length of an operand (LENB). The length of V is one bit. 
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MOVE TRANSLATE 


OP: 47 

Format: 
2k OK OK OK ORK OK OK OR KOK KK KK KK OK KK kK aK ak 2k 
* MVT OPND1, COPX1, COPX2 * 


KE 2K 2 KK 2 2 KK ok ie 2 2K OK ek oe 2K 


Function: 


Move 8-bit units from the source field denoted by OPNDI1 to the destination 


field denoted by COPX2, translating enroute, 


Translation is accomplished by using each 8~BIT source character, multiplied 


by eight, as an index into the translation table, 


the translated character. 


denoted by COPX1, 


to obtain 


The data type of the source and table fields are ignored and are assumed to be 


unsigned 8-BIT. The destination field is also assumed to be unsigned, but may 


be 4>bit or 8-bit. 


If the destination length is greater in size than the source length, the 


destination field is filled in on the right with trailing spaces (0100 0000 if 


EBCDIC, 0010 0000 if ASCII or 0000 if 4-bit). 


If the destination length is lesser in size than the source length, the source 


data is truncated on the right. 


Total overlap of operand fields is permitted, 


to allow in-place translation, 
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EXAMINE 
EXAM 


OP: 44 
Format: 


DK 2K 2 2 2K KOK 2 KOK GK OK 2 2K 2 2K OK 2 KOK 2 2K 2K OK EK 2K ek KK 2K 2K 2K 


* EXAM M, T, COPX1, OPND1, COPX2, OPND2 * 
2K KK EK OK KK KOK KK OK OI KK OK 2 2K KOI 2K 2K 2K 2K 2K 2K 2K 2K 2K 2K 2K OK 2K 2K OK OK OK ok ok 


Function: 


Examine the operand defined by COPX1, tallying and/or replacing a variable 
number of 8-bit characters. The particular 8-bit character to be tallied 
and/or replaced is specified by OPND1. The character to be used as the 
replacement character is specified by OPND2. The field into which the tally 
is stored is specified by COPX2. 


The type of operation is specified by the 4-bit parameter, T. If these four 
bits are identified, left to right, as Tl, T2, T3 and T4, then T is inter- 


preted as follows: 


T1T2 = 00 undefined 
Ol tally T3T4 occurrences of the character specified by OPND1 
10 replace T3T4 occurrences of the character specified by OPND1 
11 tally and replace T3T4 occurrences of the character specified 
by OPND1 
T3T4 = 00 all 
Ol (all) leading 
10 until first 
Li Ears 


NOTE 


T1IT2T3T4 = 0111 and 1111 not specified 


and results are undefined. 


The OPND2 argument is not present when T1T2 Ot: 


The COPX2 argument,is not present when T1T2 = 10. 


The data type of the examined operand (COPX1) is assumed to be signed or 
unsigned 8-bit. If it is signed, then the original sign is preserved by this 


operation. 
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The data type of the examining operand, defined by OPND1, must be unsigned. 
Its length is assumed to be one. When 4-bit format is specified, the operand 
is assumed to have the four bits 1111 if EBCDIC or 0011 if ASCII appended to 
the left. 


The data type of the replacing operand, defined by OPND2, must be unsigned. 
Its length is assumed to be one. When 4-bit format is specified, the leftmost 
four bits of the position replaced are set to 1111 if EBCDIC or 0011 if ASCII, 
and the rightmost four bits receive the four bits from the replacing source. 
When 8-bit format is specified, the position replaced receives all eight bits 
from the replacing source. 


The data type of the tally field defined by COPX2 is assumed to be unsigned 
4-bit. Its length is assumed to be five. 


If the one bit parameter M equals zero, it denotes numeric items, and only the 
rightmost four bits of a character are used in the comparison; the leftmost 
four bits are ignored. If M equals one, alphanumeric items are denoted, and 


all eight bits of a character are used in comparing. 
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EDIT INSTRUCTIONS AND EDIT MICRO-OPERATORS 
Introduction 


No restrictions are placed on the data type of the source field of an edit 


operation. 


The data type of the destination field of an edit operation must be unsigned 
8-bit. 
If the destination length is greater in size than the source length, the 


source data is assumed to have leading zero fill on the left. 


If the destination length is lesser in size than the source length, the source 


data is truncated on the left. 


The operation is terminated by an edit micro-operator and not by exhaustion of 


either the source or destination fields. 
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EDIT 

OP: 17 

Format: 
2K KK KK OK aK KK aK KK KK KK KK aK KK 2K 2k ok 
* EDIT OPND1, COPX1, DADDR * 
etter rtercrerreree s £22 22 222 2 3 

Function: 


Move data from the source field, denoted by OPNDI, 


EDIT 


to the destination field, 


denoted by COPX1, under the control of the micro-operator string contained at 


the location denoted by the DADDR. 


The argument DADDR is an unsigned binary value which specifies the digit dis- 


placement of the micro-operator string relative to the data segment zero base. 


The container size of DADDR is DISPB. 
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EDIT WITH EXPLICIT MASK 
EDTE 


OP: 21 


Format: 


FO OO I I RK aK aK aE aK 2 


* EDTE OPND1, COPX1, MASK * 
2K OK KK 2K 2K AK 2K 2K 2K 2K ok 2K KOK 2K OK 2K 2k 2K KK OK OK OK 2K ok 


Function: 


Move data from the source field denoted by OPND1 to the destination field 
denoted by COPX1 under the control of the micro-operator string immediately 
following COPX1. The format of the explicit micro-operator string is the 


Same as a literal and is as follows: 


LTYPE LLGTH1 LLGTH2 MICRO-OPERATOR STRING 
(2) (3) (8) (variable) 


| | Present if LLGTH1 equals zero 


Length of the micro-operator string in 8-bit 
units. If length is greater than or equal 
to eight units, the length is encoded in 
LLGTH2 and LLGTH1] is.+set to zero. 


O01: Unsigned 8-bit format 
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EDIT Micro-Operators 


The edit micro-operators used in an edit instruction are: 


OPERATOR 

0000 "R" 

0001 "R" 

0010 "R" 

OOT1T “RR” 

0100 "N" 

0101 "T" 

O10 Ser" 

OL, SV 

1000 "'T" 

1001 "T" 

1010 0000 
1010 Q001 
1010 0010 
1010 OO11 
OTHERS 


"R'" indicates 


represents no 


"N'" indicates 
8-bit units. 


"T" indicates 


MNEMONIC 


MVD 
MVC 
MVS 
FIL 
SRD 
INU 
INM 
INS 
INF 
EFM 
ENZ 
EOM 
SZS 
CCP 


OPERATION 


MOVE DIGITS 

MOVE CHARACTERS 

MOVE SUPPRESS 

FILL SUPPRESS 

SKIP REVERSE DESTINATION 
INSERT UNCONDITIONALLY 
INSERT ON MINUS 

INSERT SUPPRESS 

INSERT FLOAT 

END FLOAT MODE 

END NON-ZERO 

END OF MASK 

START ZERO SUPPRESS 
COMPLEMENT CHECK PROTECT 
UNDEFINED 


a 4-bit binary value used as a repeat count. The value 0000 


repeat, 


do it once. 


a 4-bit binary value used to skip over a number of destination 


The value OOOO represents no skip. 


a 4-bit binary value which is: 


to index into a table of editing constants 


to indicate a conditional selection between two table constants 


to indicate an editing constant in line with the edit-operator 


a. used 

b. used 
used 
string. 


The next edit-operator follows the constant. 


Table D-3 indicates the normal table editing constants as well as the condi- 


tional and unconditional selection of constants associated with the value "T", 
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Table D-3. Editing Constants and Toggles 


EDITING CONSTANTS 


sel a ENTRY TABLE ENTRY 
VALUE NUMBER OR CONSTANT MNEMONIC 
PLU 


0000 (PLUS) 

MIN (MINUS) 

AST (ASTERISK) 

DPT (DECIMAL POINT) 

CMA (COMMA) 

CUR (CURRENCY ) 

ZRO (ZERO) 

BLK (BLANK) 

SPM (SIGN PLUS OR MINUS) 
SBM (SIGN BLANK OR MINUS) 
LIT (LITERAL) 


3 
a ae 
mor 


Noo FP WN HF O 


ENTRY O or 1 
ENTRY 7 or 1 


IN-LINE 8-BIT 
CONSTANT 


EDITING TOGGLES 


TOGGLE USE 


"S" (SIGN) Set to zero if the source field sign is positive, 
otherwise set to one. 


"Z."" (ZERO SUPPRESS ) Set and reset by the individual micro-operators 
"P'" (CHECK PROTECT ) Set and reset by the individual micro-operators 


Associated with the edit instructions are three toggles denoted as "S" for 
sign, "Z'' for zero suppress and "P" for check protect. Initially the "Z" and 
the "P" toggles are assumed to be set to the zero state. They are set and 
reset as specified by the description of the individual micro-operators, The 
"S' toggle is set to zero if the source field sign is positive and to one 


otherwise. Unsigned fields are considered positive. 


Operations are detailed below; explanations of the individual micro-operators 


follow the definitions. 


Move Digit. Set "Z" to "1", ending the zero suppress state. Move an appro- 
priate unit (4-bit digit or 8-bit character) from the source field to the 
destination field. If a 4-bit unit is moved, append the four bits 1111 to the 
left before storing in the destination. If an 8-bit unit is moved, the four 
bits 1111 are substituted for the leftmost four bits of the 8-bit unit. 
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Move Character. Set "Z" to "1'', ending the zero suppress state. Move an 
appropriate unit (4-bit digit or 8-bit character) from the source field to the 
destination field. If a 4-bit unit is moved, append the four bits 1111 to the 
left before storing in the destination. If an 8-bit unit is moved, it is 


moved unchanged. 


Move Suppress. The micro-operator 'MOVE DIGIT" is performed if the 4-bit unit, 
or the rightmost four bits of the 8-bit unit, of the source field is not equal 
to OOOO. 


If the appropriate four bits of the source field unit are equal to 0000, the 
suppress toggie "Z" is inspected. If "Z" equais "1", indicating non-suppress 
mode, the micro-operator "MOVE DIGIT" is performed. If the suppress toggle 
"Z"' equals ''0", the check protect toggle "P" is inspected. If "P" = "0", 
indicating non-check protect mode, move the table entry containing the 8-bit 
code for blank to the destination field. If "P" = "1", move the table entry 


containing the 8-bit code for asterisk to the destination field. 


Summary 
SOURCE NOT = O MOVE DIGIT 
Z=1 SOURCE = 0 MOVE DIGIT 
Z=0 P=0 SOURCE = 0 MOVE TABLE ENTRY 7 (BLANK) 
Z=0 P=1 SOURCE = Q MOVE TABLE ENTRY 2 (ASTERISK) 
Fill Suppress. If "P" = "0", indicating non-check protect mode, move the 


table entry containing the 8-bit code for blank to the destination field. If 
"pt = "]" > move the table entry containing the 8-bit code for asterisk to the 
destination field. 


Summary 


P= 0 MOVE TABLE ENTRY 7 (BLANK) 
Pp 1 MOVE TABLE ENTRY 2 (ASTERISK) 


Skip Reverse Destination. Adjust the address pointer of the destination field 
to skip backward (lower address) "N" 8-bit units. 


Insert Unconditionally. Move the table entry "T" as indicated below to the 


destination field. 


T=0...7 MOVE TABLE ENTRY "'T" 
S=0 T=8 MOVE TABLE ENTRY O (PLUS) 
S=1 T=8 MOVE TABLE ENTRY 1 (MINUS) 
S=0 T=9 MOVE TABLE ENTRY 7 (BLANK) 
S=1 T=9 MOVE TABLE ENTRY 1 (MINUS) 
T=10 MOVE IN-LINE CONSTANT 
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Insert on Minus. Move the table entry "T" as indicated below to the 
destination field. 

S=1 T=O;25.4 MOVE TABLE ENTRY "T" 

* =0 T=0...7,10 MOVE TABLE ENTRY 7 (BLANK) 

* =1 T=0...7,10 MOVE TABLE ENTRY 2 (ASTERISK) 

S=1 T=8 MOVE TABLE ENTRY 1 (MINUS) 

* T=8 MOVE TABLE ENTRY O (PLUS) 

S=1 T=9 MOVE TABLE ENTRY 1 (MINUS) 

* T=9 MOVE TABLE ENTRY 7 (BLANK) 

S=1 T=10 MOVE IN-LINE CONSTANT 

*: S = 0 or only source digits/characters equal to zero (minus zero) have been 
moved. 


Move the table entry "T" as indicated below to the destina- 


Insert Suppress. 


tion field. 
Z=1 T=0...7 MOVE TABLE ENTRY "T" 
Z=0 P=0 MOVE TABLE ENTRY 7 (BLANK) 
Z=O P=] MOVE TABLE ENTRY 2 (ASTERISK) 
Z=1 =0 T=8 MOVE TABLE ENTRY O (PLUS) 
Z=1 =] T=8 MOVE TABLE ENTRY 1 (MINUS) 
Z=1 =O T=9 MOVE TABLE ENTRY 7 (BLANK) 
Z=1 S=1 T=9 MOVE TABLE ENTRY 1 (MINUS) 
Z=1 T=10 MOVE IN-LINE CONSTANT 
Insert Float. Move the tabie entry "T" and/or perform the micro-operator 
"MOVE DIGIT" as indicated below. 
Z=1 MOVE DIGIT 
=Q SOURCE =O P=0 MOVE TABLE ENTRY 7 (BLANK) 
Z=0 SOURCE =0 P=1 MOVE TABLE ENTRY 2 (ASTERISK) 
Z=0 SOURCE NOT=0 T=0..7 MOVE TABLE ENTRY "T'', THEN MOVE DIGIT 
Z=0 SOURCE NOT=0 T=8 S=0 MOVE TABLE ENTRY O (PLUS) THEN MOVE DIGIT 
Z=0 SOURCE NOT=0 T=8 S=1 MOVE TABLE ENTRY 1 (MINUS) THEN MOVE DIGIT 
Z=0 SOURCE NOT=0 T=9 S=0O MOVE TABLE ENTRY 7 (BLANK) THEN MOVE DIGIT 
=0 SOURCE NOT=0 T=9 S=1 MOVE TABLE ENTRY 1 (MINUS) THEN MOVE DIGIT 
Z=0 SOURCE NOT=0 T=10 MOVE IN-LINE CONSTANT, THEN MOVE DIGIT 
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End Float Mode. 


destination field. 


Z=0 
Z=0 
Z=0 
Z=0 
Z=0 
Z=0 
Z=1 


End Non-Zero. 


character/digit has been moved; otherwise continue with the next in-line 


T=0.. 
S=0 T=8 
s=1 T=38 
S=0 T=9 
S=1 T=9 

T=10 


NO OPERATION 


operator. 


End of Mask. 
Start Zero Suppress. 


Complement Check Protect. 


ms 


Move the table 


MOVE 
MOVE 
MOVE 
MOVE 
MOVE 
MOVE 


Complement the state of "'P". 


entry 


TABLE 


TABLE 
TABLE 
TABLE 
TABLE 


"T' as indicated below to the 


ENTRY 
ENTRY 
ENTRY 
ENTRY 
ENTRY 


tiopn 
0 (PLUS) 

1 (MINUS) 
7 (BLANK) 
1 (MINUS) 


IN-LINE CONSTANT 


set "Z'' to the 


mor 


Terminate the micro-operator operations if any non-zero source 


Terminate the micro-operator operations. 


state. 
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MICR FORMAT 
MICF 


OP: 48 


Format: 


KOK 2 GK ag 2K 2 KK 2K 2K OK OK OK KOK 


* MICF COPX1, COPX2 * 
RO I KC 


Function: 


Format the data from the source field denoted by COPX1 into the destination 
field denoted by COPX2. 


The data type of both the source and the destination fields is assumed to be 


unsigned 8-BIT. 


The field length of the destination MODULO 20 must equal zero. The destina- 


tion field is considered to be composed of a number of 20 character subfields. 


Data movement is right to left beginning with the rightmost character of the 
source field and beginning with the rightmost character position of the desti- 


nation field. 
In the discussion that follows, the following definitions apply: 


a. Transfer characters are characters that are automatically transferred 
from the source field into the current destination subfield. They 


never occupy the rightmost control character position of a destina- 


tion subfieid. They are the nu irougn '"S" and the HYPHEN 


"_". The HYPHEN is not expected to occur for OCR input. 


Ss 
= 
a 
Ky 
=o 
Q 
Cc 
ct 
red 


b. Defined control characters are characters that cause some specific 
action to be taken, depending on the character. They are: the END- 
OF-DOCUMENT "''', the MICR CANT-READ "*'' and the OCR CANT-READ @3F@, 

c. Default control characters are characters other than transfer and 


defined control characters. They are expected to be, but are not 


limited to, the MICR AMOUNT "#", TRANSIT "@" and ON-US ":" and the 
OCR HOOK ''<"", FORK "=", CHAIR ">", VERTICAL BAR "|", BLANK @40@ and 
PLUS "+", 


D-41 
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Operation is as follows: 


a. Begin formatting into a subfield by fetching a source field character, 


unless the source field is exhausted, and then proceeding to step al. 


1. If the source field is exhausted, assume an END-OF-DOCUMENT (') 
character and proceed to step a2, 

2. If the source field character is an END-OF-DOCUMENT character, 
move it to the rightmost position of the current subfield, blank- 
fill the rest of the destination field and then terminate the 
operation. 

3. If the source field character is other than a default control or 
END-OF-—DOCUMENT character, move a blank to the rightmost position 
of the current subfield, then move the source character and pro- 
ceed to step bl. 

4. If the source field character is a default control character, 
move it to the rightmost position of the current subfield and 


then proceed to step bl. 


b. Continue formatting into the current subfield by fetching a new 


source character and then proceeding to step bl. 


1. If the source field is exhausted, blank-fill the rest of the 
current subfield, assume an END-OF-DOCUMENT source character and 
proceed to step a2. 

2. If the source field character is an END-OF-DOCUMENT character, 
blank-fill the rest of the current subfield, save the source 
field character and proceed to step a2. 

3. If the source field character is other than a default control or 
END-OF-DOCUMENT character, store the character in the destination 
and proceed to step bl. 

4. If the source field character is a default control character that 
is equal to the character in the rightmost position of the cur- 
rent subfield, move it to the next position of the current sub- 
field, blank-fill the rest of the current subfield and then 
proceed to step al. 

5. If the source field character is a default control character, but 
it is not equal to the character in the rightmost position of the 
current subfield, the rest of the current subfield is blank- 
filled and the control character is used in step a4, to which we 


now proceed. 
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NOTES 


Jf any attempt is made to exceed the 
size of any subfield or of the entire 
destination field, the overflow tog- 
gle is set to one, the operation is 
terminated and the contents of the 
destination field are undefined. 


If any individual subfield contains 

a CANT-READ ("*" or "@3F@) character, 
then the high order (leftmost) posi- 
tion of the subfield is set to 1101 
0001; otherwise, it is set to a blank 
(0100 0000). 
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MICR EDIT 
MICE 


OP: 49 
Format: 


FO OR I GIR KK KOK 


* MICE COPX1, COPX2, COPX3 * 
RO I CK 


Function: 


Move data from the source field denoted by COPX1 to the destination field 
denoted by COPX2 deleting all characters except numeric characters ("0" 
through '"'9"') and CANT-READ characters ("*" and @3F@). 


The moved characters are right justified in the destination field and zero 
filled on the left, if necessary, to fill the remaining destination area. If 
the destination field is lesser in size than the moved data, the source data 


is truncated on the left. 


A decimal count of all numeric characters moved is provided in the special 
COBOL register "TALLY" denoted by COPX3, 


The data type of the source field must be unsigned 8-bit. The data type of 
the destination field must be unsigned 4-bit or 8-bit. The data type of the 
"TALLY" field must be unsigned 4-bit and its length is assumed to be five. 
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BRANCHING OPERANDS AND INSTRUCTIONS 
INTRODUCTION 


A branch address argument "'BADDR" has the following format: 


DISPLACEMENT BTYPE SEGMENT NUMBER 
(BDISPB) Ch) (7) 


osm =~ + 
segment 


Base (Gaerade orient ne 
1: Relative to a new code segment base 
(intersegment branch) 


Displacement is an unsigned binary value which specifies the bit displacement 
of an instruction relative to a segment base. The container size of the dis- 


placement and BTYPE combined is a program parameter (BDISPB1). 
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BRANCH UNCONDITIONALLY 


OP: BUN 

Format: 
2K KK KOK KO OK KOK 
* BUN BADDR * 
2K KK KKK 2K ak ok ok ok ok 

Function: 


AVUAeV Ais 
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BRANCH ON OVERFLOW . 
BOFL 


OP: 23: 

Format: 
26K KKK KK KKK 2K OK OK KK OK 
* BOFL V, BADDR * 
2K KK KK KKK KK KK OK OK 

Function: 


If the overflow toggle equals V, a transfer to the address (BADDR) given in 
the instruction occurs, otherwise control is passed to the next sequential 
instruction. 


The overflow toggle is unchanged. The length of V is one bit. 
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SET OVERFLOW TOGGLE 


OP: O07 

Format: 
2 KK KOK 
* SOFL V * 
2K KK KK Ok 

Function: 


Set the overflow toggle to V. 


The length of V is one bit. 
NOTE 


The overflow toggle is set to one if a 
"DIVIDE BY ZERO" is encountered in the 
DIVIDE SPECIAL S-operator or if a field 
overflow is attempted in the MICR FORMAT 
S-operator. 


PERFORM ENTER 


OP: 06 

Format: 
2 KK aK KK aK aK aK KK ok ok 2k 2k KK 
* PERF K, BADDR * 
FORK OK KK RK KK Kk 

Function: 


Create a stack entry with the following format: 


DISPLACEMENT SEGMENT NO. K 
(24) (7) (8) 
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Insert a displacement value, relative to the active code segment base and 


pointing to the next sequential S-instruction, 


Insert the current code segment number into the stack. 


Adjust the stack pointer to point to the next possible entry. 


into the stack. 


Insert the value of K 


Obtain the next instruction from the location specified by BADDR. 
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PERFORM EXIT 
PXIT 


OP: 34 

Format: 
3 2 2K KK KOK 2K 2K ok 
x PXIT K x 
OK KK OK KOK OK 

Function: 


Compare the K contained in the instruction to the K in the current stack entry 
and if unequal proceed to the next in-line S-instruction. If equal, adjust 
the stack pointer to point to the previous entry and obtain the next 


S-instruction from the information contained in the removed stack entry. 


ENTER 


OP: 18 


Format: 


RK OK A 2K 2K A KK OK 2K OK 


* NTR BADDR * 
FORK IK AC KK 


Function: 


Same function as "PERF". 


K is assumed equal to zero. 
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NTR 
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EXIT 
OP: 19 
Format: 
2k KK KOK OK OK 
* XIT * 
2 KK KOK OK 
Function: 


Same function as "PXIT"'. 


XIT 
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GO TO DEPENDING 
GOTD 


OP: 39 
Format: 


2K KK KK KK OK 2 aK 2K 2K 2K KG 2K 2K a 2 EK 2 2K OK 2K EK 2K ok 2 KOK OK 2K 


* GOTD COPX1, L, DBADDRO, ..., DBADDRL * 
2K 2K KK 2 2K KK 2 KK 2K 2K 2K 2K OK OK OK 2K 2K 2K 2 2K OK 2K 2K 9K 2 3K 2K 2K 2 2K 2K 2K 2k 2K 2K 2k 


Function: 


Compare, the ten bit binary value L with the variable specified by COPX1. The 


variable is first converted to a binary value, MODULO 2 to the 24th power. 


If the binary value of the variable is less than zero or greater than L, the 
next instruction is obtained from the location specified by DBADDRO. Note 


that the variable can be signed. 


If the binary value of the variable is in the range zero through L, it is used 
as an index to select from the list of DBADDR's the appropriate DBADDR to be 


used to obtain the next instruction. 


DBADDR and BADDR have the same format with the exception that DBADDR always 
contains the segment number. Although segment number is unnecessary for those 
DBADDR's with BTYPE equal to zero, in order to index into the list of DBADDR's, 
all of the DBADDR's must be of equal length. The container size of DBADDR is 
BDISPB1 + 7. 
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ALTERED GO TO PARAGRAPH 


OP: 35 

Format: 
EK KK KK kK OK 
* GPAR DADDR x 
Fe KKK KK KK KK KK OK 

Function: 


Obtain the next instruction from the location specified by the address "ACON"., 
The address constant "ACON" has the same format as a BADDR. 


The argument DADDR is an unsigned binary value which specifies the digit dis- 


placement of the "ACON" relative to the data segment zero base. 


The container size of DADDR is DISPB. 
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ALTER 
ALTR 


OP: 36 

Format: 
26K KK KK KK KOK 2 KK OK 2K 2K 2K 2K OK 2K 
* ALTR DADDR, ACON x 
AK KOK OK KK KK OK KK aK 2K 2K KK ok ok 


Function: 


Copy the address constant '"'ACON" into the data area specified by the argument 
DADDR. 


The address constant "'ACON" has the same format as a BADDR. 


The argument DADDR is an unsigned binary value which specifies the digit dis- 


placement of the "ACON" relative to the data segment zero base, 


The container size of DADDR is DISPB. 
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CONDITIONAL BRANCH OPERANDS AND INSTRUCTIONS 
INTRODUCTION 


If the condition "A (R) B" is true a transfer to the address (BADDR) given in 
the instruction occurs, otherwise control is passed to the next sequential 


instruction. The relation (R) is defined as follows: 


000 UNDEFINED 
001 GTR 
010 LSS 
011 NEQ 
100 EQL 
101 GEQ 
110 LEQ 
111 UNDEFINED 


Overlap of fields is permitted. "A" is the first operand denoted in the 
instruction. If an instruction has only one operand, then the assumed field 
is the "A" field. 
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COMPARE ALPHANUMERIC 
CMPA 


OP: 04 
Format: 


AE OK 2 OK 2 2K KK 2K EK 2 EK KK 2K OK 2K KK OK OK 2K ok ok ok 


* CMPA OPND1, COPX1, R, BADDR * 
RAO ROOK OK kk aK x kk kok kK 2k 


Function: 
Compare the two operand fields according to their binary values. 


The comparison is performed left to right with any shorter operand assumed to 
be right-filled with blank characters (0100 0000 if EBCDIC or 0010 0000 if 
ASCII). 


The fields are considered equal when the equal size portions are equal and the 


longer (if one is longer) field has trailing blanks. 


8-BIT data format is assumed for both fields with no checking to verify other- 
wise. Signed fieids have their most significant four bits, i.e., their sign, 
modified to the appropriate numeric zone (1111 for EBCDIC, 0011 for ASCII) 
before being compared. This modification is not permanent and is done so that 


sign does not affect the result of an alphanumeric comparison. 
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COMPARE NUMERIC 
CMPN 


OP: 05 

Format: 
2k KOK KK IK KK KK KK KK a OK 2K OK KK KK 2K KK 2K 2K 2k ok 
* CMPN OPND1, COPX1, R, BADDR * 
Teer eeeceeeeercee rere es fee ee 2 2 2S 

Function: 


Compare the two operand fields according to the algebraic values, considering 


the two fields to be comprised of decimal integers. 


When the field sizes are different, the longer is tested for leading zeros 
(0000). There is no restriction as to data type. In comparing an 8-bit char- 
acter only the rightmost four bits of the character are considered; the other 


bits are ignored. 
Two fields of all zeros are equal regardless of Sign. 


Unsigned fields are considered positive. Sign conventions are the same as for 


arithmetic operands. 


Results generated by invalid digit values are undefined. 
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COMPARE FOR ZEROS 
CMPZ 


OP: 27 


Format: 


2K 2K KK KK KK A 2G og 2g 2K OK OK 2 GOK OK 2K OK OK OK 


* CMPZ COPX1, R, BADDR * 
2K KK KK 2 2K KK KK 2K 2K 2K 2K 2K 2K 2K 2K 2K 2K 2K OK OK 


Function: 


Compare two operand fields according to their algebraic values, assuming the 


first field to be comprised of all zeros (0000). 


There is no restriction as to data type. In comparing an 8-bit character only 
the rightmost four bits of the character are considered. The other bits are 


ignored. 
Two fields of all zeros are equal regardless of sign. 


Unsigned fields are considered positive. Sign conventions are the same as for 
r op 


Results generated by invalid digit values are undefined. 
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COMPARE FOR SPACES 
CMPS 


OP: ST 

Format: 
ote eeeeerrereercee ss 2 2 22 2 
* CMPX COPX1, R, BADDR * 
2K KK KK KK KK 2K 2K OK KK OK KK KK ok 


Function: 


Compare two operand fields according to their binary values, assuming the 
first field to be comprised of all spaces (0100 0000 if EBCDIC or 0010 OOOO if 
ASCII). 


The comparison is performed left to right. 


Unsigned 8-bit format is assumed with no checking to verify otherwise. 
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COMPARE FOR CLASS 
CMPC 


OP: 38 
Format: 


2K 2 kK 2 2K 2K 2 2K 2K KOK 2g 2 2k 2k 2K OK 2K 


* CMPC COPX1, C, BADDR * 
2K 2K KK 2K KK OK KOK 2K 2K 2 6K 2K 2K KOK 2 ok 2K OK 2K 


Function: 
Compare the operand field and determine whether the field is: 


C=00 COMPLETELY ALPHABETIC 
C=01 COMPLETELY NUMERIC 

C=10 NOT COMPLETELY ALPHABETIC 
C=11 NOT COMPLETELY NUMERIC 


If the condition being tested is true, a transfer to the address BADDR given 
in the instruction occurs, otherwise control is passed to the next sequential 


instruction. 


In the alphabetic test, each character is range-checked for 1100 0001 through 
1100 1001, 1101 0001 through 1101 1001, 1110 0010 through 1110 1001 and for 
0100 0000. Unsigned 8-bit format is assumed with no checking to verify 


otherwise. 


In the numeric test each character is range-checked for 1111 0000 through 


111i.100i. Signed or unsigned 8-bit format is permitted. The four b 
i 


its in 
the sign position of a signed 8-bit field are ignored. The sign position is 


the leftmost four bits of the most significant character, 
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COMPARE REPEAT 
CMPR 


OP: 45 
Format: 
FA OR IO IK EK a 2k 2k 
* CMPR OPND1, COPX1, R, BADDR * 
ROO I OO OR RK A a aK ak ak 
Function: 
Compare the two operand fields according to their binary value. 
Comparison proceeds from left to right. 
The field lengths are considered equal by repeating OPND1. 


Both fields are assumed to have unsigned 8-bit data type. 


The size of OPND1 must divide evenly into the size of COPX1; otherwise, the 


results of the compare may be erroneous. 


MISCELLANEOUS INSTRUCTIONS 


COMMUNICATE 


OP: 33 
Format: 
FRR ROKR KKK KOK OK 


* COMM COPX1 * 


Function: 


Appendix D (Cont) 


Move the length and address fields from the COPX1 entry to the RS.COMMUNICATE. 


MSR.PTR field located in this program's RS.NUCLEUS, 


The origin field is unchanged. 


converting them enroute. 


The length is converted from a digit or character length to a bit length. The 


address is stored as an absolute bit address. 
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LOAD COMMUNICATE REPLY 


OP: 41 

Format: 
FORK ROK IK OK 
* LDCR DADDR * 
FORO KO OK 2 a ok 

Function: 


Move the last 24 bits of information from the RS.REPLY 
to the location specified by DADDR. 


See 'MAKE PRESENT' for definition of DADDR. 


LDCR 
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CONVERT 
CONV 


OP: 40 


Format: 


FOR ROR RK a 2k 


* CONV COPX1 DADDR * 
ROR ORI AR KK A KOK 


Function: 


Convert the operand denoted by COPX1 from a decimal value to an unsigned 
24 bit binary value, truncating or zero filling on the left if necessary. 
Place the result at the location specified by DADDR. 


The operand must be either unsigned 4-bit or unsigned 8-bit units. 


See 'MAKE PRESENT! for definition of DADDR. 


D-65 


Appendix D (Cont) 


MAKE PRESENT 


OP: 42 

Format: 
eCteerCerreerere £222 2: 
* MAKP COPX1, DADDR * 
2K KK KOK KKK KK aK ak ak aK ak 


Function: 


Load the data segment specified by COPX1 and place the base 


relative address 


a 
of the data area specified by COPX1 into the 24 bit location specified by 


DADDR. 


DADDR is an unsigned binary value which specifies a digit displacement from 


the data segment zero base. 


The container size of DADDR is DISPB. 
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HARDWARE MONITOR 


OP: 43 

Format: 
2K RK KK OK KK KKK 
* HMON OPND1 * 
2K KK ok ok 2k KOK KK OK OK OK 

Function: 


The low order eight bits of the field described by OPND1 are used as the input 


to the monitor micro-operator. 


The length of the field described by OPND1 must be greater than or equal to 
eight bits. 
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APPENDIX E 


COBOL GRAPHICS 


Table E-l is a listing of pertinent graphics, the related EBCDIC and ASCII 
internal codes, the EBCDIC 80-column card code and the BCD 96-column card 
codes. 


Standard convention is followed for the 8-bit internal codes, which are pre- 
sented as pairs of hexadecimal numbers that are translated as shown in these 


examples: 


(0) 
hs 
bo 
be 
(0.0) 
ps 
N 
bH 


39 = 0011 2 OOO) oF 
BE. = 10141 i 16210 
OF = 0000 ds ik, CE uk 


The 80-column card code is shown in terms of the card positions punched 
C2 pt OOS eed ys 


The 96-column card code is presented as 6-position zone and numeric punches 
(BA8421), with the punched positions represented by their symbol and the non- 


punched positions represented by dashes. 
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Table E-1. Graphics and Related <a 


EBCDIC | usascri-7 | 7 


8-BIT 80-COLUMN 8-BIT 96~COLUMN 
GRAPHIC INTERNAL CODE CARD CODE INTERNAL CODE CARD CODE 


12-0-9-8-1 


12-9-1 
12-9-2 
12-9-3 
12-9-4 


HT 05 12-9-5 09 
06 12-9-6 
DEL O07 12-9-7 (F 
08 12-9-8 
09 12-9-8-1 
OA 12-9-~-8-2 
VT OB 12-9-8-3 OB 
FF OC 12-9-8-4 OC 
CR OD 12-9-8-5 OD 
SO OE 12-9-8-6 OE 
SI OF 12-9-8-7 OF 
DLE 10 12-11-9-8-1 10 
DC1 11 11-9-1 11 
DC2 12 11-9-2 12 
DC3 13 11-9-3 13 
14 11-9-4 
NL 15 11-9-5 
BS 16 11-9-6 08 
17 11-9-7 
CAN 18 11-9-8 18 
EM 19 11-9-8-1 19 
1A 11-9-8-2 
cB 11-9-8-3 
FS 1c 11-9-8-4 LE 
GS 1D 11-9-8-5 LD 
RS 1lE 11-9-8-6 LE 
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Table E-1l. Graphics and Related Codes (Cont) 


BBODIC OSASCIT=7 


8-BIT 80-COLUMN 8-BIT 96-COLUMN 
GRAPHIC INTERNAL CODE CARD CODE INTERNAL CODE CARD CODE 
1F 


US 11-9-8-7 1F 
11-0-9-8-1 
0-9-1 
0-9-2 


0-9-3 
24 0-9-4 
LF 25 0-9-5 OA 
ETB 26 0-9-6 17 
ESC 27 0-9-7 1B 
28 0-9-8 
29 0-9-8-1 
aN 0-9-8-2 
2B 0-9-8-3 
2C 0-9-8-4 
ENQ 2D 029285 05 
ACK OF 0-9-8-6 06 
BEL OF 0-9-8-7 07 
30 125112020281 
| | 31 9-1 | 
SYN 32 9-2 16 
33 9-3 
34 9-4 
35 9-5 
36 9-6 
EOT 37 9-7 04 
38 9-8 
39 9285) 
3A 9-8-2 
3B 9-8-3 
DC4 3C 9-8-4 14 
NAK 3D 9-8-5 15 
3E 9-8-6 
SUB 3F 9-8-7 1A 
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Table E-1l. 


EBCDIC 


Graphics and Related Codes (Cont) 


USASCII-7 


8-BIT 80-COLUMN 8-BIT 96-COLUMN 
GRAPHIC INTERNAL CODE CARD CODE INTERNAL CODE CARD CODE 


SPACE 


A 


+o. 


Vw * FH 


41 
42 
43 
44 
49 
46 
47 
48 
49 
4A 
4B 
4C 
4D 
4E 
4F 
50 
ol 
D2 
53 
04 
55 
56 
ow 
58 
59 
oA 
OB 
oC 
oD 
SE 
oF 
60 


12-0-9-1 
12-0-9-2 
12-0-9-3 
12-0-9-4 
12-0-9-5 
12-0-9-6 
12-0-9-7 
12-0-9-8 
12-8-1 
12-8-2 
12-8-3 
12-8-4 
12-8-5 
12-8-6 
12-8-7 

12 
12-11-9-1 
12-11-9-2 
12-11-9-3 
12-11-9-4 
12-11-9-5 
12-11-9-6 
12-11-9-7 
12-11-9-8 
11-8-1 
11-8-2 
11-8-3 
11-8-4 
11-8-5 
11-8-6 
11-8-7 

11 


OB 
2E 
3C 
28 
2B 
21 
26 


oD 
24 
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3B 
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BA-42- 
BA8-21 
BA84-- 
BA84-1 
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O21 OF i eere| 
11202959 
1102923 
11-0-9-4 


11-0-9-5 
66 11-0-9-6 
67 11-0-9-7 
68 11-0-9-8 
69 0-8-1 
6A 12-11 7C 
‘ 6B 0-8-3 2C -A8-21 
So 6C 0-8-4 25 -~A84--~ 
Underscore 6D 0-8-5 5F -A84-1 
} > 6E 0-8-6 3E | -A842- 
? 6F 0-8-7 3F -A842] 
70 12-11-0 
71 12-11-0-9-1 
72 12-11-0-9-2 
73 12-11-0-9-3 | | 
74 12-11-0-9-4 
75 12-11-0-9-5 
76 12-11-0-9-6 
77 12-11-0-9-7 
78 12-i11-0-9-8 
79 8-1 60 
: 7A 8-2 3A -~-8-2- 
# 7B 8-3 | --8-21 
@ 7C 8-4 40 ~-84-- 
' 7D 8-5 27 --84-1 
= 7E 8-6 3D --842- 
7F 8-7 22 ~-8421 
80 12-0-8-1 
| 81 12-0-1 61 
82 12-0-2 62 
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oat | ated See | oiee ae 
GRAPHIC INTERNAL CODE CARD CODE INTERNAL CODE CARD CODE 

c 12-0-3 
d 84 12-0-4 64 
e 85 12-0-5 65 
f 86 12-0-6 66 
g 87 422027 67 
h 88 12-0-8 68 
1 89 12-0-9 69 

8A 12-0-8-2 

8B 12-0-8-3 

8C 12-0-8-4 

8D 12-0-8-5 

SE 12-0-8-6 

SF 12-0-8-7 

90 12-11-8-1 
j 91 ae 6A 
k 92 12-11]-2 6B 
1 93 12-11-3 6C 
m 94 12-11-4 6D 
n 95 12-11-5 6E 
Oo 96 12-11-6 6F 
p 97 T= 17 70 
q 98 12-11-8 71 
r 99 12-11-9 72 

9A 12-11-8-2 

9B 12-11-8-3 

9C 12-11-8-4 

9D 12-11-8-5 

9E 12-11-8-6 

OF 12-11-8-7 

AO 11-0-8-1 

Al 11-0-1 7E 

A2 11-0-2 73 

A3 11-0-3 74 
u | A4 11-0-4 75 
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EBCDIC uSASCII-7 
8-BIT 80-COLUMN 8-~BIT 96-COLUMN 

GRAPHIC _ INTERNAL CODE CARD CODE INTERNAL CODE CARD CODE 
AS 76 


11-0-5 
A6 11-0-6 77 
A7 11-0-7 
A8& 11-0-8 


Ag 1120-9 
AA 11-0-8-2 
AB 11+0-8-3 
AC 11-0-8-4 
AD 11265835 
AE 11-0-8-6 
AF 11-0-8-7 
BO 12-11-0-8-1 
Bl 1211201 
B2 | 12-11-0-2 
B3 12-11-0-3 
B4 12-11-0-4 
BS 12-21~025 
BG 12-11-0-6 
| | B7 12279029 | | 
B8 12-11-0-8 
BO 12-11-0-9 
BA 12-11-0-8-2 
| BB 19-41-0283 
BC <1) Seoaieoseee 
BD 12-11-0-8-5 
BE 19219-02826 
| BF 12x11 302827 
(+)Pz CO 12-0 7B 
A Cl 12-1 41 BAseot 
B C2 12-2 42 BA--2- 
C C3 12-3 43 BA--21 
D C4 12-4 44 BA-4-- 
E C5 12-5 45 BA-4-1 
F C6 12-6 46 BA-42- 
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EBCDIC USASCII-7 
8-BIT 80-COLUMN 8-BIT 96-COLUMN 
GRAPHIC INTERNAL CODE CARD CODE INTERNAL CODE CARD CODE 
G 47 
H 
I 


C7 12-7 BA-421 

C8 12-8 48 BA8--- 

C9 12-9 49 BA8--1 

CA 12-0=9=8-2 

CB 12-0-9-8-3 

CC 1220-928-4 

CD 12-0-9-8-5 

CE 12-0-9-8-6 

CF 12-0-9-8-7 
(! MZ DO 11=0 7D 
J D1 sea AA Beeset 
K D2 1120 AB p2520= 
Li D3 11=3 AC B==21 
M D4 124 AD oe 
N D5 11-5 4E B2=4=1 
O D6 11-6 4F pa-40= 
P D7 17 50 B=2421 
Q D8 11-8 51 Bogaks 
R Dg 11-9 52 B-8--1 

DA 42-11928+9 

DB 12-11-9-8-3 

DC 12=11-9-8=4 

DD 12=11-9=825 

DE 12-11-9286 

DF i2=11<98=7 

EO 0-8-2 5C 

El 1120291 
S E2 0-2 53 ye 
T E3 0-3 54 SAL22 1: 
U E4 0-4 55 Landa 
V E5 0-5 56 =AS4Aai 
W EG 0-6 57 aAn49- 
Xx E7 0=7 58 -A-421 
Y ES 0-8 59 my i. aro 
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=BCDTC USASCII-7 


8-BIT 80-COLUMN 8-BIT 96—COLUMN 
GRAPHIC INTERNAL CODE CARD CODE INTERNAL CODE CARD CODE 
0-9 


5A -A8--1 
11-0-9-8-2 
11-0-9-8-3 
11-0-9-8-4 


27 TP_NLA_Q_LE 
DY LLinmUTITOmuU 


EE 11-0-9-8-6 

EF 11-0-9-8-7 
0 FO 0) 20 -A---- 
1 Fl 1 Sl ee 1 
2 F2 2 32 ----2- 
3 F3 3 33 ----21 
4 F4 4 34 ~--4-- 
5 FS és) 35 ---4-1 
6 F6 6 36 ---42- 
7 F7 7 37 ---421 
8 FS8 8 38 --8--- 
2 FQ 9 39 -~-8--1 

FA 12-11-0-9-8-2 


| | FB 12-11-0-9-8-3 | | 


qq fay ‘ey Q A 
L-Unr-9-9oO-4 
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12-11-0-9-8-5 
12-11-0-9-8-6 


12-11-0-9-8-7 


abbreviated compound conditions, 
7-24 
ACCEPT, 7-31 
ACCESS, 5-9, 5-12, 5-13, 13-1, 13-8, 
13-9 
RANDOM, 5-9, 5-12, 5-13, 13-1, 
13-8, 13-9 


SEQUENTIAL, 5-9, 5-12, 5-13, 13-1, 


13-8, 13-9 
DYNAMIC, 13-1, 1 
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ADD, 7-32 
ALL, 27-7, 4-2, 4-3, 7-50, 7-83 
ALL-AT-OPEN, 5-9, o-11l 
alphabetic items, 6-49 
alphanumeric edited items, 6-49 
alphanumeric items, 6-49 
ALTER, 7-35, 7-53 
ALTERNATE, 5-9, 5-11, 5-15, 5-16 
APPLY, 8-5 
AREA, 5-9, 5-11, 5-15, 5-16 
arithmetic expressions, 7-14 
formation and evaluation rules, 
T—1tA 
arithmetic operators, 7-14 
arithmetic verbs, 7-29 
ADD, 7-32 
COMPUTE, 7-41 
DIVIDE, 7-47 
MULTIPLY, 7-66 
SUBTRACT, 7-96 
ASCENDING, 6-33, 6-43, 6-46, 7-90 
ASCII, 6-16, 6-32, 6-68 
ASSIGN, 5-9, 5-10, 5-11, 13-8, 13-9 
ASSIGN, READER-SORTER, 8-4 
AT END, 5-12, 7-78, 9-1, 13-2, 13-4, 
13-5 
AUTHOR, 4-1 


8, 13-9 
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Vv Vv 
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BACKUP, 5-9, 5-10 

BATCH-COUNT, 8-8, 8-9 

BLANK WHEN ZERO, 6-33, 67-34, 6-35, 
6-52 

BLOCK, 6-16, 6-17, 6-19 

braces, 2-10 

brackets, 2-10 


character set, 27-1 

characters, 2-1 
editing, 2-2 
formulas, 2-2 
MICR, 8-1 
relational, 2-2 
word, 2-1 
punctuation, 2-2 


class conditions, 7-20 

CLOSE, 77-36, 8-7, 9-1,. 19-11,. 13-12, 
L3=13 

COBOL compiler control, 11-1, 13-6 

COBOL source program syntax, 12-1 

coding form, 3-1 

COMMA, 5-6 

comparison of operands, 7-19 

compilation card deck, ll-l 

compile card, 11-2 
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compiiler-directing sente ce, ~ 
compiler-directing statement, 7-3 
compiler-directing verbs, 7 

COPY, 7-42 

MONITOR, 4-2 

NOTE, 7-67 

USE, 7-98, 8-15, 13-22 
compound conditions, 7-22 
COMPUTATIONAL, 6-32, 6-67 
COMPUTATIONAL~1, 6-32 
COMPUTATIONAL-3, 6-32, 6-67 
COMPUTE, 7-41 
concepts, 67-3 


Fala ag—-2 
444105 VV 


record, 6-4 
level numbers, 67-5 
condition-name, 2-4, 6-33, 6-36, 
6-72, 7-21 
condition-name condition, 7-21 
conditional sentence, 7-4 
conditionai statement, 7-3 
conditional verb, 7-29 
Lf. 7-35. 173. 7-33 
conditions, 7-17 
abbreviated compound, 7-24 
class, 7-20 
compound, 7-22 
condition-name, 7-21 
evaluation rules, 7-21 
relation, 7-17 
sign, 7-20 
simple, 7-22 
CONFIGURATION SECTION, 5-1, 5-2 
connectives, 2-9 
constant, figurative, 2-6 
continuation indicator, 3-1 
CONTROL, 8-8 
control cards, ll-1l 
control relationship between proce- 
dures, 7-7 
COPY... (O93 -O=4,. 3°65, S-9;. 9-15, 6716, 
6-17, 6732, 7-13, 7-42 
CORE-INDEX, 13-10, 13-11 
CORRESPONDING, 7-27, 7-32, 7-34, 
7-61, 7-96 
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CURRENCY SIGN, 5-6, 67-53 
Current Record Pointer, 13-2 


DATA-BASE SECTION, 12-1 
data classes of, 6-49 
data communications, 9-1 
DATA DIVISION, 6-1, 8-5, 12-1, 13-10 
DATA DIVISION, structure, 6-2 
DATA MANAGEMENT, 12-1 
data manipulation, verbs, 7-29 
EXAMINE, 7-50 
FORMAT, 8-10, D-41 
MICR-EDIT, 8-12, D-44 
MOVE, 7-61 
data~name, 2-3, 6-39 
DATA RECORDS, 6-16, 6-17, 6-21 
DATA SEGMENT-LIMIT, 95-4 
DATE, julian, 2-8 
DATE-COMPILED, 4-1, 4-2 
DATE-WRITTEN, 4-1 
debugging verbs, 7-30 
DUMP, 7-49 
TRACE, 7-97 
DECIMAL-POINT, 5-6, 6-52 
DECLARATIVES, 7-1, 7-2, 7-7, 7-13, 
8-6 
definition of words, 2-3 


DEPENDING, 4-2, 6-32, 6-43, 6-44, 7-53 


DESCENDING, 6-33, 6-43, 6-46 
DISPLAY, 6-32, 6-52, 6-66, 7-46 
DIVIDE, 7-47 
DIVISIONS, 1-2 
DATA, 1-2, 6-1, 8-5 
ENVIRONMENT, 1-2, 5 
IDENTIFICATION, 1-2 
PROCEDURE, 1-2, 7-1 
13-11 
DUMP, 7-49 


editing, 6-50 
floating insertion, 6-56 
fixed insertion, 6-54 
insertion, 6-54 
replacement, 67-57 
simple insertion, 6-54 
special insertion, 6-54 
suppression, 6-56 

editing characters, 27-2 

editing rules, 6-54 

editing symbols, 6-50 

elementary items, 67-95 

elementary MOVE, 7-61 

ellipsis, 2-11 

END, 5-9, 5-12 

ending verb, 7-29 
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STOP, 7-95 
END-OF-JOB, 7-2, 7-7, A-3, B-8 
END-OF-PAGE, 7-103 
ENVIRONMENT DIVISION, 5-1, 8-4, 12-1, 

13-8 

ENVIRONMENT DIVISION, structure, 5-1 
evaluation of conditions, 7-21 
EXAMINE, 7-50 
execution of PROCEDURE DIVISION, 7-2 
execution, sentence, 7-5 
EXIT, 7-52 
EXTEND, 7-68, B-13 


FD, 6-16, 8-5, 13-10 

figurative constant, 2-8 

file concept, 67-3 

FILE-CONTROL, 5-1, 5-9, 13-8 
FILE-CONTROL, READER-SORTER, 8-4 
file description, 6-2, 6-16, 13-10 
FILE-LIMIT, 5-9, 5-11, 5-12 
file-name, 27-3 

FILE SECTION, 6-1, 6-2, 6-16 
FILLER, 6-32, 6-39 

fixed insertion editing, 6-54 
floating insertion editing, 6-956 
FORM, 5-9, 5-11 

FORMAT, 8-10, D-41 

FROM, 7-81, 7-103, 7-104, 13-24 


generic terms, 2-10 

GIVING, 7-32,. 7-33, 7-47,. 7-36, 7-59, 
7-66, 77-90, 7-93, 7-94, 7-96 

GO, 7-35 

group items, 6-5 

group MOVE, 7-63 


HEADERS, 6-22, 6-23 
HIGH-VALUE(s), 2-6 


IDENTIFICATION DIVISION, 4-1, 12-1 
IDENTIFICATION DIVISION, structure, 
4-1 

identification field, 3-3 
identifier, 6-15, 7-1 

IF, 7-55 

imperative sentence, 7-4 
imperative statement, 7-3 

INDEX, 6-32 

index data items, MOVE, 7-64 
index-~name, 2-4, 6-15, 7-90 
INDEXED BY, 6-14, 6-33, 6-43, 6-46 
indexing, 6-14, 6-15 

initial value, 6-72 

INPLACE, 7-90 

INPUT, OPEN, 7-68, 8-13, 13-14 
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INPUT-OUTPUT, OPEN, 7-68, 13-14 
INPUT-OUTPUT SECTION, 5-1, 5-8 
INPUT PROCEDURE, 7-90 
input-output verbs, 7-29 
ACCEPT, 7-31 
CLOSE, 7-36, 8-7, 13-11, 13-12 
CONTROL, 8-8 
DISPLAY, 7-46 
OPEN, 7-68, 8-13, 13713, 13-14 
READ, 7-78, 8-14, 13-16 
REWRITE, 13-19 
SEEK, 7-87 
START, 13-21 
WRITE, 7-103, 13-21, 13-23, 13-24 
insertion editing, 6-54 
INSTALLATION, 4-1 
internal program switches, 7-26 
inter-program communication, 10-1 
INTERPRET, OPEN, 7-68 
INTO, 7-78, 7-79, 8-14, 13-16, 13-17 


INVALID KEY, 5-12, 7-78, 7-103, 13-4, 


13-16, 19-19, 13-21, 13724 
items, 6-48 
alphabetic, 6-49 
alphanumeric, 6-49 
alphanumeric edited, 6-49 
numeric, 6-49 
numeric edited, 6-49 
I-O-CONTROL, 5-1, 5-15, 6-27, 8-5 
I-O Status, 13-2 


JUSTIFIED, 6-33, 6-34, 6-40 


2-9, 2-10 


LABEL, 6-16, 6-24 
label equation card, 5-14, 11-1 
language description notation, 2-10 
language formation, 2-1 
LEADING, 7-50 
level-number, 6-42 
level-number concept, 675 
library, 3-1, 7-42, 7-43, 7-44, 7-45 
literals, 2-4 

numeric, 2-4 

non-numeric, 27-5 

undigit, 2-6 
LOCK ACCESS, OPEN, 7-68, 7-71, 13-14 
LOCK, CLOSE, 7-36, 13-12 
LOCK, OPEN, 7-68, 7-71, 13-14 
logical control verbs, 7-29 

IF, 7759 
logical operators, 7-17 
logical record, 673 
LOW-VALUE(s), 2-6 


margin A, 373 

margin B, 3-3 

MCP label card, 11-2 

MEMORY, 5-4 

MERGE, 7-56 

MESSAGE QUEUES, 10-1 

MICR character type, 8-21 

MICR-EDIT, 8-12, D-44 

MICR RESULT DESCRIPTOR, 8-5, 8-14, 

8-16 
OPERATION-COMPLETE, 8-16 
EXCEPTION-CONDITION, 8-16 
NOT-READY, 8-2, 8-17 
UNENCODED-DOCUMENT, 8-17 
CANNOT-READ, 8-17 
DOUBLE~DOCUMENT, 8-3, 8-18 
TOO-LATE-TO-READ, 8-2, 8-18 
JAM, 8-2, 8-18 
MISSORT, 8-2, 8-19 
BLACK-BAND, 8-2, 8-3, 8-19 
HALT-FLOW-STOPPED, 8-8, 8-20 
TOO-LATE-TO~POCKET-SELECT, 8-2, 
8-3, 8-20 

POCKET-NUMBER-SELECTED, 8-21, 8-22 

mnemonic-name, 2-4 

MOD, 7-47, 7-48 

MONITOR, 4-2 

MOVE, 7-61 
elementary, 7-61 
group, 7-63 
index data items, 7-64 

MOVE, valid statement combinations, 

7-58 


MSG-TYPE, 5-13 


MULTIPLE, 5-9, 5-15 

MULTIPLE FILE, 5-15, 5-16, 5-17 
MULTIPLE REEL, 5-9, 5-11 
MULTIPLY, 7-66 


NEXT SENTENCE, 77-55 

NO. 5-9, 9-11 

NO REWIND, CLOSE, 7-36 

NO REWIND, OPEN, 7-68 

non-contiguous WORKING-STORAGE, 7-78 

non-numeric literal, 2-5 

NON-STANDARD, 6-16, 6-26 

NOTE, 7-67 

nouns, 27-3 
condition-name, 2-4 
data-name, 2-3 
figurative constant, 2-6 
file-name, 2-3 
index-name, 2-4 
literals, 2-4 
mnemonic-~name, 27-4 
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procedure~name, 2-4 

record-name, 2-3 

special registers, 2-7 
numeric edited items, 6-49 
numeric items, 6-49 
numeric literal, 2-4 


OBJECT-COMPUTER, 5-1, 5-4 
object program, 17-3 

OCCURS, 6732, 6-43 

OCR, 8-1 

O-I, OPEN, 7-68 

OMITTED, 6-16, 6-24 

OPEN, 5-10, 5-16, 7-68, 8-13, 13-14 
optional control card, 117-3 
OPTIONAL, 5-9, 5-10, 5-17, 7-79 
optional words, 2-9, 2-10 
OUTPUT, OPEN, 7-68, 13-14 
OUTPUT PROCEDURE, 7-90 


paragraph, definition, 7-1 
structure, 7-7 
paragraph NOTE, 7-67 
PERFORM, 7-72 
period, 2-11 
Physical Files, 13-6 
physical record, 67-3 
PICTURE, 5-7, 6-32, 6-48 
precedence, 6-58 
POSITION, 5-15, 5-17 
precedence, 6758 
PICTURE, 6-58 
PRINT128, OPEN, 7-68 
priority number, 7-10 
procedure branching verbs, 7-30 
ALTER, 7-35 
EXIT, 7-52 
GO, 7-53 
PERFORM, 7-72 
ZIP, 7-106 
PROCEDURE DIVISION, 7-1, 8-6, 12-1, 
13-11 
PROCEDURE DIVISION, body, 7-2 
PROCEDURE DIVISION, execution, 7-2 
PROCEDURE DIVISION, READER-SORTER, 
8-6 
procedure formation, rules of, 7-1 
procedure-~name, 27-4, 7-1 
POCKET, 8-8 
POCKET-LIGHT, 8-8, 8-15 
PROGRAM-~ID, 4-1 
program organization, 1-2 
program segments, 779 
PUNCH, OPEN, 7-68 
punctuation, 3-4 
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punctuation characters, 27-2 
punctuation, sentence, 7-5 
PURGE, CLOSE, 7-36, 13-12 


qualification, 6-8 

qualifier, 2-9 

Q-EMPTY, 7-99, 10-3 

Q-FULL, 7-99, 10-3 

Q-MAX-MESSAGES, 6-16, 6-31, 10-2, 
10-3 

QUEUE, 6-16 

QUEUE, files, 10-1, 10-3 


RANDOM, 5-12 

READ, 7-78, 8-14, 13-16 

READ-OK, 7-100 

READER-SORTER, 8-1 
ENVIRONMENT DIVISION, 8-4 
DATA DIVISION, 8-5 
PROCEDURE DIVISION, 8-6 

RECORD, 5-15, 5-16, 6-16, 6-17, 6-25 

record concept, 6-4 

record description, 6-2, 6-32 

record-name, 2-3 

RECORDING, 6-16, 6-26 


REDEFINES, 6-32, 6-33, 6-62 


REEL, CLOSE, 7-36, 7-40 

relation characters, 27-2 

relation condition, 7-17 

relational operators, 7-19 

RELEASE, 7-81 

RELEASE, CLOSE, 7-36, 13-12 

REMARKS, 4-1 

REMOVE, CLOSE, 7-36, 13-12 

RENAMES, 6-33, 6-42, 6-64 

replacement editing, 6-57 

REPLACING, 5-3, 5-4, 5-6, 5-8, 5-15, 
6-16, 6-17, 7-34, 7-42, 7-43, 7-50 

RESERVE, 5-9, 5-11 

reserved words, 2-9 

RESTART, 7-90 

RETURN, 7-82 

REVERSED, OPEN, 7-68 

REWRITE, 13-19 

right margin, 3-3 

Rough Tables, 13-7 

ROUNDED, 7-32, 7-33, 7-41, 7-47, 
7-66, 7-96 


SAME, 5-15, 5-16, 5-17 

SAVE-FACTOR, 6-16, 6-27, 6-30 

SD, 6-17, 7-90 

SEARCH, 7-83 

SECTION, 7-1, 7-7 
CONFIGURATION, 5-2 
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definition, 7-1 
FILE, 6-16 
INPUT-OUTPUT, 5-8 
structure, 7-7 
WORKING~STORAGE, 6-72 
SECURITY, 4-1 
SEEK, 7-87 
segmentation, 7-9 
segment classification, 7-9 
SEGMENT~LIMIT, 9-4, 7-9 
SELECT, 5-9, 5-10, 13-8 
SELECT, READER-SORTER, 8-4 
sentence, definition, 7-1 
sentence, 7-1, 7-4 
compiler-directing, 7-4 
conditional, 7-4 
imperative, 7-4 
sentence NOTE, 7-67 
sentence punctuation, 77-5 
sequence field, 3-1 
SEQUENTIAL, 5-12, 5-13, 13-8 
SET, 7-88 
Sign condition, 7-20 
Simple conditions, 7-22 
Simple insertion editing, 6-54 
SINGLE, 5-9, S-11 
SIZE ERROR, 7-32, 7-33, 7-41, 7-47, 
7-66, 7-96, 8-10 
SORT, 5-4, 5-10, 5-11, 5-14, 7-90 
sort verbs, 7-30 
RELEASE, 7-81 
RETURN, 7-82 
SORT, 7-90 


SOURCE-COMPUTER. 5-1. 5-3 


SOURCE-COMPUTER, 5-1, 3 
source data card, 11-6 
source program, 1-3 
special insertion editing, 6754 
SPECIAL~NAMES, 5-1, 5-6 
special registers, 2-7 
DATE, julian, 2-8 
TALLY, 2-7 
TIME, 2-8 
TODAYS-DATE, 2-8 
TODAYS-NAME, 2-8 
SPO-INPUT-PRESENT, 7-100 
STANDARD, 6-16, 6-24, 6-26 
START, 13-21 
statement, 7-1, 7-3 
compiler-directing, 7-3 
conditional, 7-3 
imperative, 7-3 
STATION, 6-22 
STATION-RSN, 957-13 
STATUS KEY, 13-2, 13-3, 13-4 
STOP, 7-95 
STOP-FLOW, 8-8, 8-20 


STOP RUN, 7-3, 7-95 

SUBTRACT, 7-96 

subscripting, 6-12 

suppression editing, 6-56 
Switches, internal program, 7-26 
SYNCHRONIZED, 6-33, 6-34 


tables, 6-ll, 6-43 
table manipulation verbs, 7-30 
SEARCH, 7-83 
SET, 7-88 
Tag Files, 13-5 
TAG-KEY, 7-90 
TAG-SEARCH, 7-90 
TALLY, 2-7 
TALLYING, 7-50 
TAPES, 5-10, 5-14 
TEXT-~LENGTH, 5-13 
THROUGH, 6-33, 6-36 
TIME, 2-8 
timing requirements, READER-SORTER, 
8-2 
TODAYS-DATE, 2-8 
TODAYS-NAME, 2-8 
TRACE, 7-97 
translation of data, MOVE, 7-63 
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